基础问题

Question

Private Sub Command1_Click()
AA= Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False
End SubPrivate Sub Form_Load()
Dim ADORS As ADODB.Record
Dim SCONNECTIONSTRING As ADODB.Connection
Dim AA As String
Set ADORS = New ADODB.Record
Set SCONNECTIONSTRING = New ADODB.Connection
End Sub
为什么总说 "AA= Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist "缺少结束语句  或者说语法错误

Answer 1

AA是一个字串，所以要改为：AA= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"  加个双引号
还有"Dim ADORS As ADODB.Record" 应该是"Dim ADORS As ADODB.Recordset"吧，