vb程序报错，不知咋改，显示VB6.0中出现不支持所要求的数据绑定类型,该怎么处理

Dim Mydb As New ADODB.Recordset 
 Dim Mydb1 As New ADODB.Recordset 
 Dim Mydb2 As New ADODB.Recordset 
 Dim Count1 As New ADODB.Recordset 
 Dim Str_text As String 
 Private Sub cmd_add_Click() 
             On Error Resume Next 
             Dim A, B 
              
             B = 1 
             Set Count1 = ExeCutesql("select * from 收入", Str_text) 
             Count1.MoveLast 
             B = Count1.Fields(7) + 1 
             A = MsgBox("是否添加前记录？", vbYesNo + 32, "添加记录") 
             If A = vbYes Then 
                If txt_intake.Text = "" Then 
                   MsgBox "请填写来源！", vbOKOnly + 32, "注意" 
                   txt_intake.SetFocus 
                Else 
                   ExeCutesql "INSERT INTO 收入 VALUES('" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" _ 
                   & Combo1.Text & "'," & txt_money.Text & ",'" & Combo2.Text & "','" & txt_intake.Text _ 
                   & "','" & Combo3.Text & "','" & txt_mome.Text & "'," & B & ")", Str_text 
                   MsgBox "数据已经保存！", vbOKOnly + 64, "成功" 
                   Call Xiangmu 
                   Call Db 
                End If 
             End If 
              
 End Sub 
 Private Sub cmd_close_Click() 
             frm_main.Show 
             Unload Me 
 End Sub 
 Private Sub cmd_del_Click() 
             On Error Resume Next 
             Dim A 
              
             A = MsgBox("是否删除当前记录？", vbYesNo + 32 + 256, "添加记录") 
             If A = vbYes Then 
                'Mydb.UpdateBatch 
                ExeCutesql "DELETE from 收入 where key=" & txt_note.Text & "", Str_text 
                Call Db 
                Set Mydb = ExeCutesql("select * from  收入 ", Str_text) 
                Set MSHFlexGrid1.DataSource = Mydb 
             End If 
 End Sub 
 Private Sub cmd_edit_Click() 
             'On Error Resume Next 
             Dim A 
              
             A = MsgBox("是否修改当前记录？", vbYesNo + 32, "添加记录") 
             If A = vbYes Then 
                ExeCutesql "Update 收入 Set 日期 = '" & Format(DTPicker1.Value, "yyyy-mm-dd") & "',方式='" & Combo1.Text & "',金额=" & txt_money.Text & ", 来源='" & txt_intake.Text & "',人员='" & Combo3.Text & "',备注='" & txt_mome.Text & "' Where key = " & txt_note.Text & "  ", Str_text