Imports System.Data.SqlClient
 
Public Class Form1
 
   Private oConn As New SqlConnection( _
     "Server=local;Database=northwind;integrated security=true")
   Private da As SqlDataAdapter
   Private cm As SqlCommand
   Private cb As SqlCommandBuilder
   Private dt As DataTable
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Try
         ' Verbindung zum Server herstellen..."
         oConn.Open()
 
         ' SQL festlegen
         cm = New SqlCommand("SELECT * FROM Customers", oConn)
         ' Command and den Dataadapter übergeben
         da = New SqlDataAdapter(cm)
 
         ' CommandBuilder automatisch die SQL Insert, Update etc generieren 
         ' lassen
         ' Wird gebraucht um Daten zu aktualisieren oder neue anzufügen.
         cb = New SqlCommandBuilder(da)
 
         ' DataTable erzeugen und ihr einen Namen geben. Der Name hat nichts mit
         ' der eigentlichen Tabelle aus der DB zu tun.
         dt = New DataTable("MeineTabelle")
 
         ' Der DataAdapter füllt die DataTable
         da.Fill(dt)
 
         ' Die DataTable als Source für das Grid festlegen
         DataGridView1.DataSource = dt
 
         ' Verbindung schließen
         oConn.Close()
      Catch ex As Exception
         MsgBox(ex.Message)
      End Try
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control