Dim conn As New OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
          "Source=\\share\folder\nwind.mdb")
        Try
            conn.Open()
            Dim da As New OleDb.OleDbDataAdapter("Select * From Customers", _
              conn)
            da.Fill(dt)
            bs = New BindingSource(dt, Nothing)
            dgv.DataSource = bs
            TextBox1.DataBindings.Add("Text", bs, "CompanyName")
        Catch ex As Exception
            conn.Close()
            MsgBox(ex.Message)
        End Try

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist