VB utilizza gli stessi oggetti ADODB.Connection ed
ADODB.Recotdset di asp.

La stringa di connessione è leggermente diversa, ma l'utilizzo
degli oggetti è identico.

Nel codice di esempio c'è sia l'apertura della connesione
che una estrazione e un inserimento.
Ovviamente devi sostituire i valori di DataSource e i nomi delle
tabelle e de i campi con quelli del tuo DB.

codice:
' Dichiarazione degli oggetti ADODB
Public cnDatMF As ADODB.Connection
Public rsDatMF As ADODB.Recordset

Public Sub ApriConnessione()
    ' Apre la connessione
    Set cnDatMF = New ADODB.Connection
    With cnDatMF
          .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                              "Data source=" & App.Path & "\DB\DataBaseClienti.mdb"
          .ConnectionTimeout = 5 'numero dei secondi di timeout
          .CursorLocation = adUseClient 'tipo di cursore
          .Mode = adModeShareDenyNone 'nessuna limitazione
          .Open 'apertura ricordarsi di chiuderla
    End With

End Sub 
  
Public Function RicercaCliente(cCliente As String) As ADODB.Recordset
    Set rsDat = New ADODB.Recordset
    Set RicercaCliente = Nothing
    Call ApriConnessione
    rsDat.Open "Select * from Cliente Where Cognome Like '" & cCliente & "%'", cnDatMF, 3, 3
    If rsDat.RecordCount < 1 Then Exit Function
    Set RicercaCliente = rsDat
    ' Disconnette la connessione 
    Set rsDat.ActiveConnection = Nothing
    ' Chiude la connessione
    cnDatMF.Close 
    ' Libera la risorsa
    Set cnDatMF = nothing 
End Function

Public Function SalvaCliente(Cognome as String) As Boolean
Dim sSQL         As String
    sSQL = "INSERT INTO tblClienti  (Cognome)  VALUES ('" & Cognome & "')"
    Call ApriConnessione
    cnDatMF.Execute sSQL    
    cnDatMF.Close 
    ' Libera la risorsa
    Set cnDatMF = nothing 
End Sub
Ciao,
Brainjar.