01.Imports System.Data.OleDb
02. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
03. Dim connAcc As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\GA\att2000_Save.mdb;"
04. Dim conn As New OleDbConnection
05. If conn.State = ConnectionState.Open Then conn.Close()
06. cons.ConnectionString = connAcc
07. cons.Open()
08. If cons.State = 1 Then
09.
10. End If
11. End Sub
