run time error 3709

[Akintex]

run time error 3709

Private Sub Form_Load()

' Creating Connection
Dim adoCon As ADODB.Connection
Set adoCon = New ADODB.Connection

Dim conString As String
conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\MobileService.mdb;User Id=Admin;Password=;"

adoCon.Open conString


adoCon.CursorLocation = adUseClient
MsgBox "Connection Established..."




' creating Querry
Dim ar As Recordset
Set ar = New ADODB.Recordset
ar.Open "Select DLNAME FROM ServiceDetail"

Do While Not ar.EOF

Print ar.Fields("DLNAME").Value
Loop


End Sub

[RhinoBull]

Try always being a bit more specific and (when possible) point out the offensive line...
Anyways, when opening recordset you must specify connection:

ar.Open "Select DLNAME FROM ServiceDetail", adoCon