Hi

Can anyone tell me how i can get around with this piece of code.
Everything seems to be correct but when the program reaches cn.open it shows an error message saying "Authentication Failed". I have used no password and username. I've even tried creating different version of Access format (97 and 2000) but still it gives the same error. I've been stuck with this problem for two days.
Can anyone please help me with the below code.

VB Code:
  1. Private Sub Form_Load()

  2.     Me.MousePointer = 11 'this makes the mouse pointer the hourglass

  3.     

  4.     Set cn = New ADODB.Connection

  5.     cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

  6.         "D:\Usama\db\db97.mdb"

  7.         

  8.     cn.Open

  9.     

  10.     Set rs = New ADODB.Recordset

  11.     

  12.     rs.Open "ChkList", cn, adOpenKeyset, adLockPessimistic, adCmdTable

  13.     rs.MoveFirst

  14.     Do Until rs.EOF = True

  15.         cn.AddItem rs.Fields("Field1")

  16.         rs.MoveNext

  17.     Loop

  18.        

  19.     rs.MoveFirst

  20.     fillFields

  21.     

  22.     Me.MousePointer = 0 'sets the mouse pointer to the normal arrow

  23.     

  24. End Sub

Thanks