[alma2]

هل أنت ملزم بالوقت لأنه سبب المشكلة في البحث

كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        dt.Clear()
        da = New OleDbDataAdapter("SELECT * FROM [SIR] WHERE [Start] BETWEEN @dFrom AND @dTo ", con)
        da.SelectCommand.Parameters.AddWithValue("@dFrom", Start_From.Value.Date)
        da.SelectCommand.Parameters.AddWithValue("@dTo", Start_to.Value.Date)
        If da.Fill(dt) = 0 Then
            Load_Data()
            MsgBox("No match found")
        End If
    End Sub