数据库方面的问题
Dim con As New ADODB.Connection
Dim rd As New ADODB.Recordset
Private Sub Form_Load()
con.Open "provider=microsoft.jet.oledb.4.0;data source =" & App.Path & "\db1.mdb"
Set rd.ActiveConnection = con
rd.Open "select * from 123"
Set DataGrid1.DataSource = rd
End Sub
我的找码如上,我的窗体上就一个datagrid控件。没有经过任何改动。我想用代码连接数据库并在datagrid控件中显示。但是我运行后出现在“实时错误7004,行集合不能作为标签。”请各位帮帮忙!!!!!!
[此贴子已经被作者于2006-11-10 11:14:47编辑过]