ciao a tutti vi scrivo il codice vb, non capisco dove sta l'errore
..spero possiate illuminarmi!!!!grazie!!!!!
codice:
Dim stringa As String
MDIForm1.Height = 20000
MDIForm1.Width = 20000
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 DISTINCT n ele, v per ele, v batt FROM batterie", cn, 1
If rs.EOF = True Then
MsgBox ("Nessun dato"), vbInformation
Else
While rs.EOF = False
Combo1.AddItem " " & rs("n elementi") & " " & rs("volt per elemento") & " " & rs("tensione batt")
rs.MoveNext
Wend
End If
Set cn = Nothing
Set rs = Nothing
allego l'immagine dell' errore è questo..grazie a tutti in anticipo!