我直接用 ado 的,你可以试试啦!
Public Function read_data(tread_lb As String, tgrid As MSHFlexGrid, tsql9 As String)               '////////读取  数据Dim str9 As String
Dim coon9 As Connection
Dim rs9 As Recordset
Set coon9 = New Connection
for_public.connect
coon9.Open stb
Set rs9 = New Recordset
rs9.Open tsql9, coon9, adOpenDynamic, adLockOptimistic
Select Case tread_lb
    Case "读取客户资料"            With tgrid
                Set .DataSource = rs9
                    .Refresh
                Set .DataSource = Nothing
            End With
End Selectrs9.Close
Set rs9 = Nothing
coon9.Close
Set coon9 = Nothing
End Function