'Connection mit Verbindungsparametern zur Datenbank; Hier eine SQLEXPRESS-Db
Dim cn As New SqlClient.SqlConnection( _
  "Server=DeinRechnername\SQLEXPRESS;Database=DeinDatenbankname;User" & _
  "ID=DeineUserID;Password=DeinPasswort;Trusted_Connection=False; Connection" & _
  "Timeout=30;")
 
'DataSet erstellen
Dim ds As New DataSet
 
'SQL-String erstellen
Dim strSQL As String="SELECT * FROM Datenbanktabelle WHERE" & _
  "DeineSpalte='DeinSuchwert'"
 
'DataAdapter erstellen
Dim da As New SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(Abfrage, _
  cn)
 
'Mittels DataAdapter eine DataTable im DataSet füllen
da.Fill(ds, "DeinDataTableName")
 
'Eine BindingSource erstellen
Dim bs as BindingSource
 
'Der BindingSource mitteilen, welche Daten sie binden soll; Hier aus dem 
' DataSet "ds" die DataTable "DeinDataTableName"
bs.DataSource=ds.Tables("DeinDataTableName")
 
'Dem Datagridview mitteilen, welche Datenquelle es benutzen soll
datagridview.DataSource=bs
 
___________________________
 
'Änderungen in die Datenbank übernehmen:
 
'Dem DataGridView mitteilen, dass die Arbeiten daran beendet sind
datagridview.EndEdit
 
'Einen CommandBuilder für den DataAdapter erstellen
Dim commandBuilder As SqlClient.SqlCommandBuilder = New _
  SqlClient.SqlCommandBuilder(da)
 
'Den DataAdapter updaten; Die Daten werden nun von der DataTable 
' "DeineDataTableName" des DataSets "ds" in die Datenbank geschrieben
da.Update(ds, "DeinDataTableName")

EALA FREYA FRESENA