Visual Basic.NET - Error con variable SqlDataReader

Imports System.Data.Sql

Imports System.Data.SqlClient

Module Conexion

    Public conx As New SqlConnection("Data Source=DANIELITO;Integrated Security=TRUE;Initial Catalog=Datos SET")

    Public cmd As New SqlCommand 'permite ejecutar un procedimiento'

    Public dr As SqlDataReader  'permite el modo de lectura'

    Public sql As String = "" 'variable'

    Public Sub conectarse()

        Try

            conx.Open()

            MsgBox("CONEXION EXITOSA")

        Catch ex As Exception

            MsgBox("FALLO LA CONEXION")

        End Try

    End Sub

    Public Sub consultarpersona(ByRef identificacion As String) 'recibe la cedula y la utiliza como identificacion

        cmd.Connection = conx ' establece la conexión

        cmd.CommandType = CommandType.Text ' Establece un valor

        cmd.CommandText = "SELECT CEDULA, NOMBRES, APELLIDOS, EDAD, TELEFONO, CORREO, SECCION FROM DATOS WHERE CEDULA=" & identificacion 'establece la busqueda en la funcion de los datos que se van ejecutar

        Try

            dr = cmd.ExecuteReader() 'Empieza a leer

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

End Module

Private Sub Btn_Buscarp1_Click(sender As Object, e As EventArgs) Handles Btn_Buscarp1.Click

        If Me.Txt_Cedulap1.Text <> "" Then

            consultarpersona(Me.Txt_Cedulap1.Text)

            If dr.Read Then

                Me.Txt_Cedulap1.Text = dr(0).ToString

                Me.Txt_Nombrep1.Text = dr(1).ToString

                Me.Txt_Apellidosp1.Text = dr(2).ToString

                Me.Txt_Edadp1.Text = dr(3).ToString

                Me.Txt_Telefonop1.Text = dr(4).ToString

                Me.Txt_Correop1.Text = dr(5).ToString

                Me.Txt_Seccionp1.Text = dr(6).ToString

            Else

                Me.Txt_Cedulap1.Text = ""

                Me.Txt_Nombrep1.Text = ""

                Me.Txt_Apellidosp1.Text = ""

                Me.Txt_Edadp1.Text = ""

                Me.Txt_Telefonop1.Text = ""

                Me.Txt_Correop1.Text = ""

                Me.Txt_Seccionp1.Text = ""

                MsgBox("INGRESE UNA CEDULA VALIDA")

                Txt_Cedulap1.Enabled = False

            End If

        End If

            dr.Close()

    End Sub

cmd.CommandText = "SELECT CEDULA, NOMBRES, APELLIDOS, EDAD, TELEFONO, CORREO, SECCION FROM DATOS WHERE CEDULA=" & identificacion

cmd.CommandText = "SELECT CEDULA, NOMBRES, APELLIDOS, EDAD, TELEFONO, CORREO, SECCION FROM DATOS WHERE CEDULA=" & "'" & identificacion & "'"

... ... ... WHERE CEDULA= " & CTYPE(identificacion, INTERGER)