비베랑 Access랑 연동하는데 문제가 생겨서여...풀어주세여...제발~

비베랑 Access랑 연동해서 도서관리 시스템을 만들구 있는데여...
DB연결하는 것이 잘 안되여..
제가 한 방법은 코드를 이용해서 했는데여..아래와 같이 했습니다.
//FORM_Load()
   ADODB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=C:\Documents and Settings\Administrator\" & _
                                "My Documents\BOOK.MDB;" & _
                                "Persist Security Info=False"
    ADODB.RecordSource = "SELECT * FROM Genre"

//Class file에...

Option Explicit
Dim dbConn As ADODB.Connection
Dim cRs As ADODB.Recordset
Dim DatabaseName As String
........
    DatabaseName = "Driver={Microsoft Access};Server=shs303;Uid=Admin; "
    
    Set dbConn = New ADODB.Connection
    dbConn.CommandTimeout = 4800
    dbConn.CursorLocation = adUseClient
    
    dbConn.Open DatabaseName
이때 databaseName이 뭔가 잘못 된것 같은데...어떻게 고쳐야되는지를 모르겠어여..제발좀 갈카주세여...디비연결이 안되서 진도를 못나가구 있어여..ㅠㅠ