Ciao a tutti.
ho un problemuccio con una insert.
I campi da inserire sono tutte stringhe, fatta eccezione per Cartaceo,Elettronico e CD che sono booleani.

Vi posto il codice... se trovate il problema mi fate un grosso favore:
codice:
Public Sub Add()

  Dim IntCartaceo As Integer, IntCD As Integer
  Dim IntElettronico As Integer
  
  If Cartaceo = True Then IntCartaceo = -1 Else IntCartaceo = 0
  If Elettronico = True Then 
         IntElettronico = -1 & _
     Else 
         IntElettronico = 0
  End If
  If CdAllegato = True Then IntCD = -1 Else IntCD = 0
  
  miasql = "Insert into tbCataloghi " & _
           "(Società,Testata,AnnoPubblicazione," & _
           "MesePubblicazione,Revisione,Cartaceo," & _
           "Elettronico,Categoria," & _
           "Note,Tipologia,Lingua1,Lingua2," & _
           "CdAllegato,DescrizioneCD,Piano,Armadio,Scaffale) "
  miasql = miasql & "values (""" & Società & """,""" & Testata & _
           ""","""" & AnnoPubblicazione & """,""" & _
           """"MesePubblicazione & """," & _
           """" & Revisione & ""","
  miasql = miasql & IntCartaceo 
  miasql = miasql & IntElettronico
  miasql = miasql & ",""" & Categoria & """," & _
           """" & Note & """,""" & _ 
           & Tipologia & """," & _
           """" & Lingua1 & """,""" & _ 
           & Lingua2 & ""","
  miasql = miasql & IntCD
  miasql = miasql & ",""" & DescrizioneCD & """," & _
           """" & Piano & """,""" & Armadio & """," & _
           """" & Scaffale & """)"

  MiaConn.Execute (miasql)

End Sub
grazie a tutti.