Connection Information

Public (or Global )Function inc_connection ()
Dim db As Database
Dim ws As Workspace
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:folder1customers.mdb", False, False)

End function

Then in the form a

Private Sub

Dim sql as string

Call inc_connetion
the first 2 lines are ok but when it gets to the set information, it then comes up with error object required

Dim sql as string
Sql = select * from customers
Etc
End sub

Hope that all makes sense

Casey