Dim connection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & aaa & "';Persist Security Info=False;")
Dim originalstard As DateTime = DateTimePicker1.Value
Dim stard As DateTime = DateTimePicker1.Value
Dim endd As DateTime = DateTimePicker2.Value
'Dim itemchecked As Object
'For Each itemchecked In CheckedListBox1.CheckedItems
Dim count = CheckedListBox1.CheckedItems.Count
'CheckedListBox1.Items.Clear()
For i As Integer = 0 To (count - 1)
Dim checked = CheckedListBox1.CheckedItems.Item(i)
Do While stard <= endd
Dim insertinto As String = "INSERT INTO try ([SN],[Dateplease]) VALUES (@SN, @Dateplease)"
Dim cmd As New OleDbCommand(insertinto, connection)
cmd.Parameters.AddWithValue("@SN", checked)
cmd.Parameters.AddWithValue("@Dateplease", stard)
If connection.State = ConnectionState.Closed Then
connection.Open()
End If
cmd.ExecuteNonQuery()
stard = stard.AddDays(1)
Loop
stard = originalstard
'Next
Next
connection.Close()