我在VB6.0中使用MS-Access数据库的项目，我运行查询显示在MSFlexGrid控件的记录。
rs1.Open"选择CNAME，desg，司，部，从data_detail部国家='"cmb​​contry.Text"'GROUP BY CNAME，desg，司，部，卫生部的HAVING COUNT（*）GT 1"，CON，adOpenStatic adLockOptimistic，adOpenKeyset

但它显示以下错误
项目不能被发现在收集相应的请求的名称或序号
我使用的组合框，选择国家，并在网格中显示其相应的记录。
我用下面的代码

If rs1.RecordCount > 0 Then

      rs1.MoveFirst

      While (rs1.EOF = False)

      trec = trec + 1

      rs1.MoveNext

      Wend

      End If

       trec = 6

        Mf1.Rows = rs1.RecordCount + 1

        Mf1.Cols = 6

        Mf1.Row = 0

        Mf1.Col = 1

        Mf1.Text = "CName"

        Mf1.Row = 0

        Mf1.Col = 2

        Mf1.Text = "Designation"

        Mf1.Row = 0

        Mf1.Col = 3

        Mf1.Text = "Division"

        Mf1.Row = 0

        Mf1.Col = 4

        Mf1.Text = "Department"

        Mf1.Row = 0

        Mf1.Col = 5

        Mf1.Text = "Ministry"

          For i = 0 To rs1.RecordCount - 1

            rs1.MoveFirst

            rs1.Move i

            Mf1.Row = i + 1

            'For rl = 1 To rs1.RecordCount

             '   For dup = 2 To rs1.RecordCount

            'If (r1! = dup) Then

            

            Mf1.Col = 1

            Mf1.Text = rs1.Fields(9)//where i am getting this error

            Mf1.Col = 2

            Mf1.Text = rs1.Fields(10)

            Mf1.Col = 3

            Mf1.Text = rs1.Fields(11)

            Mf1.Col = 4

            Mf1.Text = rs1.Fields(12)

            Mf1.Col = 5

            Mf1.Text = rs1.Fields(13)

            rs1.MoveNext

         Next

        For i = 1 To Mf1.Rows

           For j = 0 To Mf1.Cols - 1

                Mf1.Row = i - 1

                Mf1.Col = j

            Next

        Next

行动我的目标是要找到相同的记录，显示他们在网格
请电话我，我错了。
在预先感谢....:7861155 |会员