Ciao 
innanzitutto una piccola presentazione, diciamo che la mia conoscenza di VB6 è a livello scolastico, in pratica mi manca tutta la parte relativa ai DB.
Ho cercato nelle pillole e ho trovato questo
codice:
Sub Form_Load()
Dim Con As ADODB.Connection
Dim StringaConn As String
Dim query As String
Dim Rst As ADODB.Recordset
Set Con = New ADODB.Connection
StringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Go-Jamaica\Documenti\progetto\clienti.mdb;Persist Security Info=False"
Con.Open StringaConn
Set Rst = New ADODB.Recordset
query = "SELECT * FROM TuaTabella"
Rst.Open query, adOpenDynamic, adLockOptimistic, adCmdText
End Sub
Private Sub Form_Unload(Cancel As Integer)
Rst.Close
Con.Close
Set Rst = Nothing
Set Con = Nothing
End Sub
Quando provo ad avviarlo mi dice
Ora, vabbè che sono incapace, ma cavolo come può darmi errore alla prima riga 
stò solo dichiarando una variabile...
EDIT: Il punto è che stò tentando di connettermi ad un DB, per inciso