dunque...la situazione è questa, ho apportato alcune modifiche e sono arrivato a questo punto, la funzione che sta nel modulo è:
Function recset(sql As String) As Recordset
nomedb = App.Path & "\mdb\miodb.mdb"
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nomedb & ";Persist
Security Info=False"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open strcn
rs.Open sql, cn, 3, 3
Set recset = rs
End Function
mentre invece nel form ho scritto:
Dim result As Recordset
sql = "select * from tb_tipo_utenza"
result = recset(sql)
While Not result.EOF
tipoute.AddItem (result("descrizione"))
Wend
closedb
closedb è una sub che ho scritto per chiudere recordset e connection
mandando in esecuzione il progetto mi viene generato errore di tipo "utilizzo non valido di property " sulla riga
result = recset(sql)
da che cosa può dipendere?
grazie dell'aiuto!:bubu:


Rispondi quotando