VB.Net 連結Access方式

Sub AccessDBConnection()
Dim objConn As OleDbConnection '宣告連結物件
Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CustomerBasicData.mdb" '設定連結字串
objConn = New OleDbConnection(ConnStr)
objConn.Open()
......
......
objConn.Close()
End Sub