Private Sub txtNip_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNip.KeyPress
        If (e.KeyChar = Chr(13)) Then
           Dim conn as New SqlConnection
Dim stringconn as String = "read stringconn here"
Conn=new sqlconnection(stringconn)
Conn.open()
Dim cmd as new SqlCommand
Dim dr as new sqldatareader
Cmd = new SqlCommand("select * from tbl,conn)
dr= cmd.ExecuteReader()
If dr.Hasrows Then
TxtName.Text= dr.Item ("Name")
        End If