i have set the values of adodc nd datagrid at design time and on form load/run grid displays all the record and on click on activeorders command button i have exactly this code as below
Private Sub activeorders_Cl ick()
Dim cn As New ADODB.Connectio n
Dim rs As Recordset
cn.Open ("DSN=northwind ")
Set rs = cn.Execute("sel ect * from tblreceivedorde rs where pickupdate = cvdate('" & Date & "')")
' i need records for today's date in grid
Set Adodc2.Recordse t = rs
Adodc2.Refresh
DataGrid2.Refre sh
End Sub
grids comes blank. suggestions plz
Private Sub activeorders_Cl ick()
Dim cn As New ADODB.Connectio n
Dim rs As Recordset
cn.Open ("DSN=northwind ")
Set rs = cn.Execute("sel ect * from tblreceivedorde rs where pickupdate = cvdate('" & Date & "')")
' i need records for today's date in grid
Set Adodc2.Recordse t = rs
Adodc2.Refresh
DataGrid2.Refre sh
End Sub
grids comes blank. suggestions plz