Duda agregar filas a DataGridView

[Aquaventus]

Ahora eso se puede simplificar a esto, lo hize algo largo para que entiendas como fluye la logica, pero aca esta reducido codigo :

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 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")
 
'Creamos la sentencia para extraer los datos del codigo ingresado
sql = "SELECT RUT,NOMBRECLIENTE AS CLIENTE,DIRECCION,TELEFONO,EMAIL FROM TUTABLA WHERE RUT = @RUT"
 
cm = New SqlCommand()
 
cn.open()
 
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
cm.Parameters.Add("@RUT", SqlDbType.NVarChar(30))
cm.Parameters("@RUT").Value = TuTextBox.Text
da = New SqlDataAdapter(cm)
 
ds= New DataSet()
'lo almacenamos en un dataset
da.Fill(ds)
cn.Close()
 
'Contamos del dataset los registros que tiene
registros = ds.Tables(0).Rows.Count
 
'si los registros son mayores 0
If  registros > 0 Then
'quiere decir que ya existe el codigo ingresado
'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())
'sino...
Else
'No existe ningun registro con el codigo ingresado
MessageBox.Show("No existe el codigo ingresado","Mensaje")
End If
 
Catch ex As Exception
MessageBox.show(ex.Message)
End Try