用adodc控件和dbgird控件还有添加，删除和修改的按扭(还有这段程序怎么错了

Question

下面代码怎么出现在str="Provider="这个错误出现Invalid outside proedure
Private Form_Load()
Dim str As String * 6
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"
Adodc1.ConnectionString = str
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from bj"
Adodc1.Refresh
Set datagrid1.DataSource = Adodc1.Recordset
End Sub

Answer 1

string * 6
你的 Provider 那句也太长了些吧

Answer 2

Dim str As String * 6
-->
Dim str As String

Answer 3

str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"改为：str = "Provider=Microsoft.Jet.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"试试看？