[vb6]errore di run-time

[lexus89]

ciao a tutti!!non riesco a capire dove sta la magagna!!!chi mi può aiutare??!grazie mille a tutti!!!

Dim cn As adodb.Connection
Dim rs As adodb.Recordset

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "C:\test\armadi batt\database batt.mdb"
    
Set cn = New adodb.Connection
Set rs = New adodb.Recordset

cn.Open stringa
rs.Open "SELECT nele FROM armadi WHERE nele=" & a & " AND vperele=" & b & " AND vbatt=" & c & " AND nstringhe=" & d & " AND nbattperstringhe=" & e & " AND tensionedistringa=" & f & "", cn, 1 
ri = rs("nele")

Set cn = Nothing
Set rs = Nothing