Public Class Form1
 
    Dim DT As DataTable
    Dim DA As OleDbDataAdapter
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        '' AccessDatei wird geöffnet und die Daten in eine Datentabelle _
          importiert
 
        Dim SQLQuery As String = "SELECT * FROM Festplatten"
 
        Dim MDBConnectionString As String = _
          "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=Daten.accdb"
 
        Dim ds As New DataSet
        Dim cnn As OleDbConnection = New OleDbConnection(MDBConnectionString)
        cnn.Open()
 
 
        Dim cmd As New OleDbCommand(SQLQuery, cnn)
        Dim da As New OleDbDataAdapter(cmd)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "Festplatten"
 
        da.SelectCommand = cmd
        da.Fill(ds, "Festplatten")
        cnn.Close()
 
        DT = ds.Tables("Festplatten")
 
        For Each DR In DT.Rows
            Debug.Print(DR("Rechner").ToString & " - " & DR( _
              "Physisch/Logisch").ToString)
        Next
 
    End Sub
End Class

       Dim SQLQuery As String = "SELECT * " & _
     " FROM 01_Rechner INNER JOIN HDD ON 01_Rechner.Kennzeichen=HDD.Rechner" & _ 
     " WHERE (((HDD.[Physisch/Logisch]) Like ""Laufwerk%"") AND ((" & _
     "HDD.Überwachung)=True)); "