Imports System.Data
Public Class PLZ
    Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DB_Pfad & "\Data.mdb")
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objDataSet As DataSet
    Dim objDataView As DataView
 
 
 
    Private Sub PLZ_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
 
        objDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM PLZ", _
          objConnection)
 
 
        objDataAdapter.Fill(objDataSet, "PLZ")
 
 
    End Sub
End Class

Frank