[VB6] Errore di sintassi (operatore mancante)

[lexus89]

ciao a tutti vi scrivo il codice vb, non capisco dove sta l'errore ..spero possiate illuminarmi!!!!grazie!!!!!

   

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!