MS Jet OLEDB Initialisation Information problem

Sir,

Code:
Private Sub bkLstMn_Click()
Dim sconnectString As String
sconnectString = "Provider=Microsoft.Jet.OLEDB.4.0;jet OLEDB:Database user Name=Admin,Password=xxx;Mode=share Deny None;Data Source=C:\CLIBS 40.0\jolx.mdb"
DataEnvironment1.Connection1.ConnectionString = sconnectString

If DataEnvironment1.Connection1.State Then
DataEnvironment1.Connection1.Close
End If
DataEnvironment1.Connection1.Open
BookListRpt.Show
Set DataEnvironment1 = Nothing

End Subaccessing Ms Access password protected database from Visual Basic 6, it is prompt the message saying " Please Enter MS Jet OLEDB Initialisation Information"
what to do . Please

2 answers

Try adding this
Jet OLEDB:Database Password=MyDbPassword;
then omit
Database user Name=Admin

Let me know if this helps!

Sir,
I tried this but still cant't display giving the same error message MS Jet OLEDB initialisation Information.
I am expecting you will help me this,

connectionstrings.com helped me a lot . So, I will be posting anything when i have.

with regard,