Imports System.Data.OleDb
 
Public Class Form1
 
    Private con As New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data" & _
      "Source=F:\Transmitter.mdb")
    Private da As New OleDbDataAdapter("SELECT * FROM Hersteller WHERE" & _
    "HerstellerNr=1", con)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim ds As New DataSet
        da.Fill(ds, "Hersteller")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Hersteller"

Pdt