Dim StaRecordSet As Recordset

Set Connescio = New ADODB.Connection
Set Comando = New ADODB.Command

Connescio.ConnectionString = "DSN=nome_database.mdb;DBQ=" &_
App.Path & "\database.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;UID=admin;"
Connescio.Open
Comando.ActiveConnection = Connescio
Comando.CommandType = adCmdText

Connescio e comando le devi dchiarare Public in un modulo.
App.path è la directory dell'applicazione


-----------------------------------------------------------------
Private Sub Form_Load()
Dim tuo_recordset As Recordset

Set tuo_recordset = New ADODB.Recordset
tuo_recordset.CursorType = adOpenKeyset
tuo_recordset.LockType = adLockOptimistic

tuo_recordset.Open "SELECT * FROM tabella WHERE Cod = 1",
Connescio2, , , adCmdText


label1.caption = tuo_recordset!tuo_campo
------------------------------------------------------------------
sono stata chiara? fammi sapere........
a propoposito, semmai sono statA preziosissimA!!!!!