为什么总是报错？？

Question

Private Sub Form_Load()
    Dim Rs As New ADODB.Recordset
    If Rs.State = 1 Then Rs.Close
    RS.CursorLocation=adUseClient                 {新加的Code}
    Rs.Open "select distinct nvName from kManage", DBconn, adOpenStatic, adLockPessimistic
    Set dDataGrid.DataSource = Rs
End Sub--------------------------------------------------
Try It

Answer 1

to: gaoqi5037(高岐)
再问两个问题：
datagrid控件只有在 adOpenStatic 下才能正常使用吗？还有：
datagrid,msflexgrid,mshflexgrid这三个控件有什么区别？用哪个比较好？