Duda agregar filas a DataGridView

[Aquaventus]

Entonces todo va a estar en función al evento CLIC del botón, pero crea las columnas manualmente al datagridview tal y como esta el orden en tu tabla y luego harías algo así :

Código vb:

Try
'Declaro las varibles a usar
Dim sql As String
Dim cn As SqlConnection
Dim cm As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim existe As Boolean
Dim registros As Int32
'Creo la conexion a la base de datos
cn = New SqlConnection("Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave")
'Creo la sentencia que devuelve los registros con rut igual al parametro
sql = "SELECT COUNT(*) FROM TUTABLA WHERE RUT = @PARAMETRO1"
 
cm = New SqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
cm.Parameters.Add("@PARAMETRO1", SqlDbType.NVarChar(30))
cm.Parameters("@PARAMETRO1").Value = TuTextBox.Text
 
cn.Open()
'Obtenemos el resultado de la consulta
registros = Convert.ToInt32(cm.ExecuteScalar())
 
cn.Close()
'si los registros son mayores 0
If  registros > 0 Then
'quiere decir que ya existe el codigo ingresado
existe = True
'sino...
Else
'No existe ningun registro con el codigo ingresado
existe = False
End If
 
'Si ya existe el registro
If existe = True Then
'Creamos la sentencia para extraer los datos del codigo ingresado
sql = "SELECT RUT,NOMBRECLIENTE AS CLIENTE,DIRECCION,TELEFONO,EMAIL FROM TUTABLA WHERE RUT = @PARAMETRO2"
 
cn.open()
 
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
cm.Parameters.Add("@PARAMETRO2", SqlDbType.NVarChar(30))
cm.Parameters("@PARAMETRO2").Value = TuTextBox.Text
da = New SqlDataAdapter(cm)
 
ds= New DataSet()
'lo almacenamos en un dataset
da.Fill(ds)
cn.Close()
'agregamos los datos en la grilla
TuDatagridView.Rows.Add(ds.Tables(0).Rows(0).Cells(0).Value.ToString(),ds.Tables(0).Rows(0).Cells(1).Value.ToString(),ds.Tables(0).Rows(0).Cells(2).Value.ToString(),ds.Tables(0).Rows(0).Cells(3).Value.ToString(),ds.Tables(0).Rows(0).Cells(4).Value.ToString())
 
Else
MessageBox.Show("No existe el codigo ingresado","Mensaje")
End If
Catch ex As Exception
MessageBox.show(ex.Message)
End Try