我想显示备忘录系统里面的备忘日期数值（库里面的字段是备忘日期）大于现在日期的记录
查询出来后显示在datagrid1中
我怎么也显示不出来啊
希望高手给点意见
最好详细点啊
我是菜鸟啊
谢谢高手们了啊

Option Explicit
'声明
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
'连接数据库
cn.Open "Driver={SQL Server};Server=主机名或IP地址;uid=SQL账号;pwd=SQL密码;database=数据库名"
rs.Open "select 备忘日期 From 备忘表", cn
'把数据传送到DataGrid1控件上
Set DataGrid1.Source = rs
End Sub

谢谢楼上 的
我马上去试试
我去换成sql库
谢谢你哦

大家好啊
我还是实现在datagrid里面实现查询的记录
上面的方法都不可以啊
谁能帮帮我啊
谢谢高手门了 啊
我的库名字是beizhu
查询条件是 备忘日期<now
怎么实现显示在datagrid里面啊
"select * from beizhu where 备注时间 < & Now()"
高手指点一下 啊

我的详细代码和错误
Option Explicit
Private dbConn As ADODB.Connection
Private Rst As ADODB.Recordset


Private Sub Form_Load()
Me.Picture = LoadPicture(mypath + "2.jpg")

Set dbConn = New ADODB.Connection
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\adu.mdb;Mode=ReadWrite;Persist Security Info=False"

Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Rst.Open "select * from beizhu where 备注时间 < & Now()"", dbConn, adOpenKeyset, adLockPessimistic, adCmdText"
Set DataGrid1.DataSource = Rst

End Sub

库是adu
表名 beizhu
字段名 备忘时间


实时错误‘3709’
在一个已关闭的或无效连接的对象参照上操作不被任许

在连接access数据库时的connectionstring中好像需要指明.mdb的详细路径。你试试
我没用过access，都是用SQL
这是我偶尔看到的。
不确定阿！