Private Sub Test()
 
        Dim sProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source="
        Dim sDbName As String = "C:\Rechnungen.mdb"
 
        Dim sSql As String = ""
        sSql = "SELECT vg.* "
        sSql &= "FROM vg "
        sSql &= "WHERE (vg.lagerfg = 0) AND (vg.mahnst = 0 or vg.mahnst = 1 or" & _
          "vg.mahnst = 2 or vg.mahnst = 3 or vg.mahnst = 4);"
 
        Dim conn As OleDbConnection
        Dim cmd As OleDbCommand
        Dim dt As New DataTable
        conn = New OleDbConnection(sProvider & sDbName)
        conn.Open()
        cmd = New OleDbCommand(sSql)
        cmd.Connection = conn
        Dim da As New OleDbDataAdapter(cmd)
        da.Fill(dt) 'An dieser Stelle hängt das Programm unter Windows 8.
        conn.Close()
 
    End Sub