数据库为：sql server 2005 , 在该数据库中存在一个database = accounting

dim myrs as adodb.connection
dim mycn as adodb.recordset

private sub form_click()
  myrs.open "driver={sql server};server = local;uid=sa; pwd = Cash791212@；database=accounting;
  mycn.open "room",myrs,adopenkeyset ,adlockoptimistic
  mycn.movefirst
do while mycn.eof =false
  debug.print mycn.fields("no")
   mycn.movenext
loop
mycn.close
end sub

在这段代码中，myrs.open 系统报错“91，对象变量或with块变量未设置”

请各位大侠帮帮忙

Option Explicit
Dim mycn As New ADODB.Connection ‘定义一个连接，注意一定要使用 new adodb.connection

Dim myrs As New ADODB.Recordset ‘定义一个记录集，注意一定要使用 new adodb.recordset


Private Sub Form_Load()
mycn.Open "Driver={SQL Server};Server=WIN-J8VPCTS806B;uid =sa;pwd =Cash791212@;database=accounting" ‘必须使用driver={sql server}中间不能有空格，server不能直接使用local，必须指定本机机名 win-j8vpcts806b，注意相关引号

myrs.Open "room", mycn, adOpenKeyset, adLockOptimistic ‘必须指定连接（mycn），以及游标类型和锁定类型，不能缺少！
myrs.MoveFirst
Do While myrs.EOF = False
    Debug.Print myrs.Fields("no")
    myrs.MoveNext
Loop
myrs.Close ‘注意需要及时关闭连接，以便释放内存空间


End Sub