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