（帮忙给看看吧）不要嫌我烦我是不会才来请教各位大虾的

Question

为什么这个程序不能运行
查找access表中corp字段有没有重复值，要求模糊匹配如：
北大与北大体育视为重复字段
我是这么做的：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Private Sub Command1_Click()
    sql = "select MID(corpname,2,4) from base group by MID(corpname,2,4) having count(*)>1"
    Set conn = New ADODB.Connection
        conn.Provider = "Microsoft.Jet.OLEDB.4.0"
        conn.Open "D:\access\corp.mdb"
    Set rs = New ADODB.Recordset
        rs.Open sql, conn, adOpenDynamic
    If rs.EOF And rs.BOF Then
    MsgBox "没找到"
    End If
    text1.text=rs!corpname//此处报错项目所需名称或序数种为被发现
End Sub
改成  sql="select corpname from bas"e group by corpname having count(*)>1 就好用这是怎么回事
还有如果想让结果和DATAGRID控件连接，怎么做。

Answer 1

select MID(corpname,2,4) as corpname

Answer 2

set datagrid1.datasource=rs

Answer 3

set datagrid1.datasource=rs
报错呀 说：集合不能作为标签

Answer 4

rs.CursorLocation = adUseClient '// 加上这句
rs.Open sql, conn, adOpenKeyset