Unreconized data format

Hey,guys am trying to use my Access 2000 database with Visual basic program. says ,!unrecognised data Format!
where do i change the code
?
How do i use microsoft jet 4.0 or ado 3.6 instead of using the 3.51 version
Private Sub Form_Load()
Dim X As Integer
CenterForm Me
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3... Source=" & App.Path & "\db4.mdb;"
Set Adologin = New Recordset
Adologin.Open "select User,password,files,transactio... from users Order by User", db, adOpenStatic, adLockOptimistic

For X = 1 To Adologin.RecordCount
txtUserid.AddItem Adologin.Fields("User")
Adologin.MoveNext
Next X
txtUserid.ListIndex = 0
End Sub

Change the Provider argument of the connection string.

Data PROVIDER=Microsoft.Jet.OLEDB.4.0;