[حريف برمجة]

وعليكم السلام ،،

بالنسبة لرقم 1 هذا حله :

كود :

 dt.Clear()
        da = New OleDbDataAdapter("Select * from SIR where Site_ID=" & ComboBox3.Text & " ", con)
        da.Fill(dt)
        DGVSearch.DataSource = dt

ورقم 2 هذا حله :

كود :

 Dim dtp1 As Date = Start1.Value
        Dim dtp2 As Date = Start1.Value.AddDays(1)

        dt.Clear()
        da = New OleDbDataAdapter("Select * from SIR where Start BETWEEN @dFrom AND @dTo ", con)

        da.SelectCommand.Parameters.AddWithValue("@dFrom", dtp1)
        da.SelectCommand.Parameters.AddWithValue("@dTo", dtp2)

        da.Fill(dt)
        DGVSearch.DataSource = dt

        If dt.Rows.Count = 0 Then
            MsgBox("No match found")
            Load_Data()
        End If