Jet OLEDB initialisation information

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 Sub

---

accessing 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

As in your other threads, the problem is all about the connection string.

At least one problem is that you have used the wrong character to separate the fields here:

Quote:

---

=Admin,Password=xxx

---

You should correct that, and compare what you have to the examples given at www.connectionstrings.com (which all work for the situations described, you just need to change the file path etc).