Scusate ragazzi qualcuno sà dove potrebbe essere l'errore su questa query mi da sempre "ERRORE 3061 ,PARAMETRI INSUFFICENTI PREVISTO 1".Mi potete aiutare grazie
Private Sub XPButton1_Click()
Dim itmX As ListItem
Dim DB As Database
Dim sQL As String
ListView1.ListItems.Clear
sQL = "select * from Rubrica where [O_F]= '" & XPCombo1.Text & "'"
Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set RS = DB.OpenRecordset(sQL)
If RS.RecordCount = 0 Then
MsgBox "Nessuna Chiamata trovata nell'indice di date inserite!", vbCritical, "ATTENZIONE"
End If
Do Until RS.EOF
Set itmX = ListView1.ListItems.Add()
With RS
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("O_F")
itmX.SubItems(2) = .Fields("Piano")
itmX.SubItems(3) = .Fields("Call_Center")
itmX.SubItems(4) = .Fields("Operatore_SIT")
itmX.SubItems(5) = .Fields("DataApertura")
itmX.SubItems(6) = .Fields("DataChiusura")
RS.MoveNext
End With
Loop
End Sub