ragazzi avevo gia postato nell'altro post,ma giustamente meglio parlarne in un altro post.
allora ho in una form una serie di checkbox,ho possibilità di selezionarli e una volta fatta questa operazione clicco su salva e vorrei inserire nel database tanti record quanti sono i check selezionati,posto il codice che fin ora ho fatto...è un pò bruttino lo so ma non sapevo come fare .
codice:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ObjConnection As OleDbConnection
        Dim ObjCommand As OleDbCommand
        Dim ObjCommand2 As OleDbCommand
        Dim StrConn As String
        Dim Query As String
        Dim ID As Integer
        Dim RispUtente As Integer
        Try
            StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Progetto Carrara\Carrara\Carrara\DbCarrara.accdb;"
            ObjConnection = New OleDbConnection(StrConn)
            ObjConnection.Open()

            'RECUPERO L'Ultimo Id inserito
            '"SELECT TOP 1 * FROM Cliente ORDER BY IDcliente DESC"

            ObjCommand = New OleDbCommand("SELECT TOP 1 * FROM Cliente ORDER BY IDcliente DESC", ObjConnection)
            ID = ObjCommand.ExecuteScalar()
            ObjCommand2 = New OleDbCommand("INSERT INTO CLIENTE_SERVIZIO (CLIENTE,SERVIZIO) VALUES (?,?)", ObjConnection)
            If (CheckBox1.Checked = True) Then
                ObjCommand.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
                ObjCommand.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 1
                RispUtente = ObjCommand2.ExecuteNonQuery()
            End If
            '    If (CheckBox2.Checked = True) Then
            'ObjCommand.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
            '  ObjCommand.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 2
            '  RispUtente = ObjCommand2.ExecuteNonQuery()
            '  End If
            '  If (CheckBox3.Checked = True) Then
            ' ObjCommand.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
            'ObjCommand.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 3
            ' RispUtente = ObjCommand2.ExecuteNonQuery()

            '  End If
            ' If (CheckBox4.Checked = True) Then
            'ObjCommand.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
            ' ObjCommand.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 4
            ' RispUtente = ObjCommand2.ExecuteNonQuery()
            'End If
            ' If (CheckBox5.Checked = True) Then
            'ObjCommand.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
            ' ObjCommand.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 5
            'RispUtente = ObjCommand2.ExecuteNonQuery()

            'End If
            'If (CheckBox6.Checked = True) Then
            'ObjCommand.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
            ' ObjCommand.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 6
            'RispUtente = ObjCommand2.ExecuteNonQuery()
            'End If
            'If (CheckBox7.Checked = True) Then
            'ObjCommand.Parameters.Add("@CLIENTE", OleDbType.Integer).Value = ID
            ' ObjCommand.Parameters.Add("@SERVIZIO", OleDbType.Integer).Value = 7
            'RispUtente = ObjCommand2.ExecuteNonQuery()
            ' End If
            '  MsgBox(ID)
            ' If (CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False And CheckBox7.Checked = False) Then
            'MsgBox("Selezionare un Servizio")
            ' End If
            MsgBox(ID)

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class
mi da l'errore, Nessun valore specificato per alcuni parametri necessari...cioè?