Private Sub Form_Load()
Adodc1.ConnectionString = connstring
Sql = "select *from 1.mdb"
Adodc1.RecordSource = Sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
(DataGrid的几个Allow.*属性设置都是True)
模块:
Public Function connstring() As String
connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\1.mdb"
End Function
最先出错的不是这个,这是后来我随便弄的一个,想试试会不会报错写的,结果这个更严重,改什么都错。。。
[此贴子已经被作者于2006-12-7 10:18:19编辑过]