为什么我数据库连上第一次能打开，第二次打开的时候没有数据了？？

Question

我的代码：
Private Sub Form_Load()
    
    If condb = True Then
        rsopen "select convert(smalldatetime,日期 ) as 日期,班次,条码,操作类型,数量 from 生产日志 order by 日期 desc", rslog
        msfg.Cols = 5
        msfg.Row = 0
        '第一列文本值
        msfg.Col = 0
        msfg.Text = "日期"
        msfg.ColWidth(0) = 1500
        msfg.CellAlignment = flexAlignCenterCenter
        '第二列文本值
        msfg.Col = 1
        msfg.Text = "班次"
        msfg.ColWidth(1) = 1000
        msfg.CellAlignment = flexAlignCenterCenter
        
        msfg.Col = 2
        msfg.Text = "条码"
        msfg.ColWidth(2) = 2500
        msfg.CellAlignment = flexAlignCenterCenter        msfg.Col = 3
        msfg.Text = "操作类型"
        msfg.ColWidth(3) = 1300
        msfg.CellAlignment = flexAlignCenterCenter        msfg.Col = 4
        msfg.Text = "数量"
        msfg.ColWidth(4) = 1200
        msfg.CellAlignment = flexAlignCenterCenter
        
        Dim i As Integer '定义子窗体每行循环的整型变量
        Dim j As Integer '定义组合框中整型变量
        Dim q As Integer '定义班次组合框中整型变量
        
        i = 1
        j = 1
        q = 1
        
    rsopen "select distinct top 30 convert(smalldatetime,日期 ) as 日期 from 生产日志 order by 日期 desc", rsdate
    rsopen "select distinct 班次 from 生产日志", rsclass    
            While rsdate.EOF <> True
            Comdate.AddItem rsdate.Fields("日期").Value
                j = j + 1
                rsdate.MoveNext
            Wend
            
            While rsclass.EOF <> True
            Comclass.AddItem rsclass.Fields("班次").Value
                j = j + 1
                rsclass.MoveNext
            Wend
       
    
        If rslog.EOF <> True And rslog.BOF <> True Then
            rslog.MoveFirst
                While Not rslog.EOF
                msfg.Col = 0
                msfg.Row = msfg.Rows - 1
                msfg.Text = rslog.Fields("日期").Value
                msfg.CellAlignment = flexAlignCenterCenter
                msfg.Col = 1
                msfg.Text = rslog.Fields("班次").Value
                msfg.CellAlignment = flexAlignCenterCenter
                msfg.Col = 2
                msfg.Text = rslog.Fields("条码").Value
                msfg.CellAlignment = flexAlignleftleft
                msfg.Col = 3
                msfg.Text = rslog.Fields("操作类型").Value
                msfg.CellAlignment = flexAlignCenterCenter
                msfg.Col = 4
                msfg.Text = rslog.Fields("数量").Value
                msfg.CellAlignment = flexAlignCenterCenter
                i = i + 1
                rslog.MoveNext
                msfg.AddItem Empty
                Wend
            
        End If
          
   End If
End Sub