Ganti SQLOLEDB.1 menjadi SQLOLEDB aja.
bc = "PROVIDER=SQLOLEDB;" & _ 'diganti jadi SQLOLEDB
"PERSIST SECURITY INFO=True;" & _
"DATA SOURCE=" & pServer & ";" & _
"USER ID=" & pUser & ";" & _
"PASSWORD=" & Nz(pPwd, "") & ";" & _
"INITIAL CATALOG=" & pDB
----- Original Message -----
From: GALIH PERSADHA
To: [email protected]
Sent: Thursday, April 23, 2009 10:49
Subject: [belajar-access] invalid connection string
------------ --------- --------- --------- --------- --------- ---------
--------- --------- ---
Function Konek(pServer, pDB, pUser, pPwd) As Boolean
Konek = True
On Error GoTo Konek_Err
bc = "PROVIDER=SQLOLEDB. 1;" & _
"PERSIST SECURITY INFO=True;" & _
"DATA SOURCE=" & pServer & ";" & _
"USER ID=" & pUser & ";" & _
"PASSWORD=" & Nz(pPwd, "") & ";" & _
"INITIAL CATALOG=" & pDB
' first close current connection
CurrentProject. CloseConnection
' then establish new connection
CurrentProject. OpenConnection (bc)
Konek_Exit:
Exit Function
Konek_Err:
MsgBox Err.Description, vbCritical, "Caution"
Konek = False
Resume Konek_Exit
End Function
