[...]
 
Dim Conn As OleDbConnection
Dim DA As OleDbDataAdapter
Dim DS As New DataSet
 
Conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & _
  strDBFile)
Conn.Open()
If Conn.State = ConnectionState.Open Then
    DA = New OleDbDataAdapter("SELECT * FROM Tabelle1", Conn)
    DA.Fill(DS, "Tab1")
End If
Conn.Close()
 
MsgBox(Conn.State.ToString) 'Die Meldung ergibt "Closed"
 
[...]