Dim cn As New OleDbConnectioncn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Data.mdb;Persist Security Info=True"cn.Open()cn.Close()
imports system.data.oledbDim con As New OleDbConnection()con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=h:\MAINDB.mdb;"con.openstatementscon.close