Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
  System.Windows.Forms.Application.StartupPath & "\Data\Datenbank.mdb"
 
Dim conn As New OleDbConnection(conStr)
Dim ds As New DataSet()
Dim data As String = "Mikrone"
Dim selStr As String = "SELECT ID FROM Serien WHERE Serienname=data"
 
Dim da As New OleDbDataAdapter(selStr, conn)