Dim cn As New OleDb.OleDbConnection()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\some\path\to\data.mdb"
cn.Open()
Dim sql As String
sql = "select * from df_topics"
Dim dr As OleDb.OleDbDataReader
Dim cmd As New OleDb.OleDbCommand(sql, cn)
dr = cmd.ExecuteReader()