Salve!
Stavo cominciando un programmino in Vb6... solo che appena ho cominciato..già i primi problemi.. questo è il codice che ho scritto:

Dim dbAss As Database
Dim rsMacchine As Recordset
Dim rsAgenzie As Recordset

Private Sub Form_Load()

'On Error Resume Next

Set dbAss = OpenDatabase(App.Path & "\db\db1.mdb")

strSQL = "SELECT * FROM Agenzie_entrate order by cod_agenzia"
Set rsAgenzie = dbAssist.OpenRecordset(strSQL)

strSQL = "SELECT * FROM Registro_carico order by contatore"
Set rsMacchine = dbAssist.OpenRecordset(strSQL)


'Genera la combo delle agenzie
If rsAgenzie.EOF Then Exit Sub
While Not rsAgenzie.EOF
cmb_aaEntrate.AddItem rsAgenzie!codagenzie
cmb_aaEntrate.ItemData(cmb_aaEntrate.NewIndex) = rsAgenzie!contatore
rsAgenzie.MoveNext
Wend
rsAgenzie.Close

'Genera la combo delle Macchine
If rsMacchine.EOF Then Exit Sub
While Not rsMacchine.EOF
cmb_mod1.AddItem rsMacchine!cod_modello
cmb_mod1.ItemData(cmb_mod1.NewIndex) = rsMacchine!contatore
rsMacchine.MoveNext
Wend
rsMacchine.Close


'Set rsLicenza = dbscad.OpenRecordset("SELECT * FROM Licenza WHERE IDlicenza = 1")
'licragsoc = rsLicenza!licragsoc
'licpiva = rsLicenza!licpiva
'rsLicenza.Close

dbAss.Close

End Sub
Allora..
su "Dim dbAss As Database" mi da questo errore: "tipo definito dall'utente non definito"...

Se tolgo quella dichiarazione mi da "Sub o Function non definita" e si blocca sull'OpenDatabase...

Uff..

Poi altra cosa.. perchè quando inserisco il codice non compare la tendina di completamento automatico??