strSql = "Select * From 表1"
recRs.Open strSql, dbAdo, adOpenDynamic, adLockReadOnly
If recRs.RecordCount = 0 Then
MSHFlexGrid1.Rows = 2
'需要加列标题程序
Else
Set MSHFlexGrid1.DataSource = recRs
End If
strSql = "Select * From 表1"
recRs.Open strSql, dbAdo, adOpenDynamic, adLockReadOnly
If recRs.RecordCount > 0 Then
MSHFlexGrid1.Rows = 2
'需要加列标题程序
Else
Set MSHFlexGrid1.DataSource = recRs
End If