Access Connection String In VB.NET

Imports System.Data.Odbc
Module ModDB
 Public dbConfig As String = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=MyAccessFile.mdb;UID=Admin;PWD=1234"
   Public conn As New OdbcConnection
    Public Sub Connect()
        On Error GoTo ConnectERR
        conn.ConnectionString = dbConfig
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        Exit Sub
ConnectERR:
        MsgBox("ผิดพลาดในการเชื่อมต่อกับฐานข้อมูล" & Err.Description, MsgBoxStyle.OkOnly, "ผิดพลาด")
    End Sub
End Module