Dim con_string As String
con_string = "Driver={Microsoft Access Drive(*.mdb)};DBQ=C:\test.mdb;"
Dim con As New Odbc.OdbcConnection(con_string)
Try
con.Open()
MsgBox("Database is open")
Catch ex As Exception
MsgBox("Cannot open the database:" + ex.ToString)
End Try
No comments:
Post a Comment