ciao a tutti!!non riesco a capire dove sta la magagna!!!chi mi può aiutare??!grazie mille a tutti!!!
codice:
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