Jet OLEDB initialisation information

[surk]

Sir,

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