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