Օրինակ/AsQuery

With New AsQuery
    .SQL = "insert into RESNUMBERS (fISN, fTYPE, fNUMBER) " _
         & "values (?ISN, ?TYPE, ?NUMBER) "
    .Parameters("ISN") = 1234567890
    .Parameters("TYPE") = "C"
    .Parameters("NUMBER") = "V-123456"

    .ExecuteNonQuery()
End With

Dim usedIsn As Variant
With New AsQuery
    .SQL = "select fISN " _
         & "from RESNUMBERS " _
         & "where fTYPE = ?TYPE and fNUMBER = ?NUMBER "
    .Parameters("TYPE") = "C"
    .Parameters("NUMBER") = "V-123456"

    usedIsn = .ExecuteScalar()
    If IsEmpty(usedIsn) Then
        usedIsn = 0
    End If
End With

Dim rs As rdoResultset
With New AsQuery
    .SQL = "select fISN, fTYPE " _
         & "from RESNUMBERS " _
         & "where fNUMBER = ?NUMBER "
    .Parameters("NUMBER") = "V-123456"

    Set rs = .ExecuteReader()
End With
Do While Not rs.EOF
    '...
    '...
    rs.MoveNext
Loop
rs.Close