大家帮我看一下为什么出这个错(实时错误'91')???谢谢!!!

Question

实时错误91   对象变量或WITH块变量未设置
Private Sub Form_Load()
    Dim myrs As ADODB.Recordset
    Dim txtsql As String
    Dim MsgText As String
    
     txtsql = "select * from usepass "
    Set myrs = ExecuteSQL(txtsql, MsgText)
    For i = 0 To myrs.RecordCount - 1     (黄字体)
      Combo1.AddItem (myrs.Fields(0))
      myrs.MoveNext
    Next i
     If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
       myrs.Close
End Sub

Answer 1

Dim myrs As ADODB.Recordset
    Dim txtsql As String
    Dim MsgText As String
    set myrs =new ADODB.Recordset'实例化ADODB.Recordset
    txtsql = "select * from usepass "
    Set myrs = ExecuteSQL(txtsql, MsgText)
    For i = 0 To myrs.RecordCount - 1     (黄字体)
      Combo1.AddItem (myrs.Fields(0).value)'加value
      myrs.MoveNext
    Next i
     If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
       myrs.Close

Answer 2

Dim myrs As ADODB.Recordset
    Dim txtsql As String
    Dim MsgText As String
    set myrs =new ADODB.Recordset'实例化ADODB.Recordset
    txtsql = "select * from usepass "
    Set myrs = ExecuteSQL(txtsql, MsgText)
    For i = 0 To myrs.RecordCount - 1     (黄字体)
      Combo1.AddItem (myrs.Fields(0).value)'加value
      myrs.MoveNext
    Next i
     If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
       myrs.Close
正确！