>Is there something wrong in my codes below?, it does not work.. please help .. and thanks
>
>
>Private Sub Form_Load()
>Dim mSetupDir as String
>
>mSetupDir = App.Path & "\Setup.MDB"
>'
>adoDep.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & mSetupDir & ";Persist Security Info=False"
>'
>adoDep.RecordSource = "Select * from Department Where Department.Dept like 'A*' order by Department.Dept"
>
>End Sub

In addition to what Cuyt said, in ADO, the wildcard is % instead of *.