Dim con As OleDbConnection
Dim com As OleDbCommand
 
'Konstruktor 
Public Sub New()
 ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
  InitializeComponent()
  ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
  con = New OleDb.OleDbConnection
  com = New OleDb.OleDbCommand
  'Connection string
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=Adr2006.mdb; Mode=ReadWrite;Persist Security Info=false"
 
End Sub

Private Sub Erstellung()
 
com.Connection = con
com.CommandType = CommandType.Text
com.CommandText = "Select * From Tab1 Where Erstellung=? "
 
End Sub
 
Private Sub Änderung()
'Command
 com.Connection = con
 com.CommandType = CommandType.Text
 com.CommandText = "Select * From Tab1 Where Änderung=? "
 
End Sub

VB@rchiv its the Best