'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

 
Dim oSQL_CONNECT As New SqlConnection("User ID=" + gl_Username + ";Password=" + _
  gl_Password + ";Initial Catalog=" + gl_Database + ";Data Source=" + gl_Server)
Dim oDS As DataSet
Dim cSQL As String = "SELECT * FROM MA"
Dim oDA As New SqlClient.SqlDataAdapter
Dim oDT As New DataTable
Dim oBS As New BindingSource		
 
oDA = New SqlClient.SqlDataAdapter(cSQL, oSQL_CONNECT)
oDA.Fill(oDS, oDT)
oBS.DataSource = oDS.Tables(oDT)
DGV.DataSource = oBS

oDA.Fill(oDS, oDT)

EALA FREYA FRESENA