Vidi se po DBEngine.OpenDatabase.
DAO ima Database i Recordset objkte, a ADO Connection i Recordset.
U ADOu bi izgledalo nekako ovako
Code:
Const mcstrDNSBeg As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const mcstrDNSEnd As String = ";Persist Security Info=False"
Dim adoRS As ADODB.Recordset
Dim adoConn As ADODB.Connection
Dim DNS As String
Dim Qry As String
Dim DBPath As String 'putanja do baze
DNS = mcstrDNSBeg & DBPath & mcstrDNSEnd
Set adoConn = New ADODB.Connection
adoConn.CursorLocation = adUseClient
adoConn.open DNS
Qry = "SELECT * FROM table1 WHERE imepolja ='" & ponuda & "'"
Set adoRS = New ADODB.Recordset
adoRS.open Qry, adoConn, adOpenDynamic, adLockBatchOptimistic