table-table yang ada sudah ngelink ke ODBC sourcenya GDB

Program yang di pakai di client : Microsoft Access MDB
OS client : Windows XP SP2 
Nama Server : GDCSRV
OS Server : windows Server 2000
DBMS : SQL Server 2000
Nama Data Source di ODBC : GDB
Nama Database : DataCenter
User : Ahmad
Password : santri

Object di Form:
2 text box (txtUser dan txtPassword)
1 Commdand Button (btnOK)

Sintax di on Click btnOK:

Private Sub btnOK_Click()
    pServer = "GDCSRV"
    pUser = Me.txtUser
    pPwd = Me.txtPassword
    pDB = "DataCenter"
    bc = "PROVIDER=SQLOLEDB.1;" & _
             "PERSIST SECURITY INFO=TRUE;" & _
             "DATA SOURCE=" & pServer & ";" & _
             "USER ID=" & pUser & ";" & _
             "PASSWORD=" & Nz(pPwd, "") & ";" & _
             "INITIAL CATALOG=" & pDB
    CurrentProject.OpenConnection (bc)
End Sub

ketika klik btnOK, muncul peringatan: "the expression you entered refered to an 
object that is closed or doesn't exist"

Tolong berikan pencerahan
Terima kasih banyak

Kirim email ke