[حريف برمجة]

ضع هذا الكود في الفورم لود :

كود :

Dim dp As New OleDbDataAdapter("select * from [Documents] where [DocumentDate] < '" & Date.Now.ToString("yyyy/MM/dd") & "'", constring)

       Dim ds As New DataSet

       dp.Fill(ds)

       Label6.Text = ds.Tables(0).Rows.Count