Cargar un formulario

[Aquaventus]

Hola proteus8 en el form 2 dejalo asi y me cuentas :

Código vb:

Public Class Form2
Private Sub Med_Terreno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Med_Terreno.Click
 
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
 

EDITADO :

Por cierto ahora que veo bien tienes que cerrar la conexion en tu button1 de tu form1 que esta como comentario:

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Sqlstr As New SqlCommand("SELECT NOMBRE, DIRECCION,LOCALIDAD FROM CLIENTES WHERE CODIGO=" & "'" & TextBox1.Text & "'", cnn)
cnn.Open()
Dim dr As SqlDataReader = Sqlstr.ExecuteReader(CommandBehavior.CloseConnection)
While dr.Read
Dim value As Object = dr.Item("NOMBRE")
If value IsNot DBNull.Value Then TextBox2.Text = CStr(value)
 
value = dr.Item("DIRECCION")
 
If value IsNot DBNull.Value Then TextBox3.Text = CStr(value)
 
value = dr.Item("LOCALIDAD")
 
If value IsNot DBNull.Value Then TextBox4.Text = CStr(value)
 
End While
 
dr.Close()
cnn.Close() '<------------
End Sub