Bueno yo trabajo es con C#, pero aquí trate de convertirlo a VB, prueba de esta manera para ver si te funciona, por que lo que entiendo de tu código es que esta realizando una consulta a tu base de datos para saber si existe o no el usuario.
Código Javascript
:
Ver originalDim codigo As String = Me.txtcodigo.Text
Dim Conection As New SqlConnection(CadenaString)
Conection.Open()
Dim ComandoSql As New SqlCommand("SELECT * FROM table_1 WHERE codigo = @codigo", Conection)
ComandoSql.Parameters.AddWithValue("@codigo", codigo.Replace("'", "NoOo"))
Dim Leer As SqlDataReader = ComandoSql.ExecuteReader()
If Leer.Read() Then
[Me].txtmodificaclave.Text = datos("clave")
[Me].txtmodificamail.Text = datos("mail")
Else
[Me].lblmensaje4.Text = "No existe dicho usuario"
End If
Leer.Close()
Conection.Close()