为什么会出错！！！！

Question

Dim cn As ADODB.Connection
Dim rscz As ADODB.Recordset
Private Sub Form_Load()
cn.ConnectionString = "Provider=sqloledb;Data Source=CZZJ-77FFF18167;Initial Catalog=zcpg;User Id=sa;Password="
cn.Open
rscz.CursorLocation = adUseClient
Set rscz = cn.Execute("select * from carsort", , adCmdText)
End Sub
为什么出现“对象变量或with块变量未设置”

Answer 1

Dim cn As ADODB.Connection
Dim rscz As ADODB.Recordset
Private Sub Form_Load()
cn.ConnectionString = "Provider=sqloledb;Data Source=CZZJ-77FFF18167;Initial Catalog=zcpg;User Id=sa;Password="
cn.Open
rscz.CursorLocation = adUseClient
Set rscz =new  ADODB.Recordset                 ''添加这一句
Set rscz = cn.Execute("select * from carsort", , adCmdText)
End Sub
为什么出现“对象变量或with块变量未设置”

Answer 2

或者
Dim cn As ADODB.Connection
Dim rscz As ADODB.Recordset
Private Sub Form_Load()
cn.ConnectionString = "Provider=sqloledb;Data Source=CZZJ-77FFF18167;Initial Catalog=zcpg;User Id=sa;Password="
cn.Open
rscz.CursorLocation = adUseClient
Set rscz =new  ADODB.Recordset                 
rscz.Open "Select * From Carsort",cn,adOpenStatic ,adLockBatchOptimistic 
End Sub

Answer 3

Dim cn As new ADODB.Connection  '這裡也要加new
Dim rscz As new ADODB.Recordset