快来看看啊，帮帮忙啊！！！

Question

vb+qlserver
Private cn As New ADODB.Connection
Private rscz As New ADODB.Recordset
Dim rows As Integer
Dim wtid As StringPrivate Sub cmdAdd_Click()
rscz.CursorLocation = adUseClient
rscz.Open "select * from zcjdwt", cn, adOpenDynamic, adLockOptimistics出现“变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。”的错误提示！

Answer 1

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
   Set DataGrid1.DataSource = Rs你的CN打开了吗？