Public conn As New ADODB.Connection
Public rs1 As New ADODB.Recordset
Public g_sql As String
if rs1.state=1 then rs1.close
g_sql="select * from table_name"
rs1.open g_sql,conn,3,1
with msflexgrid
for i=1 to rs1.recordcount
.textmatrix(i,0)=iif(isnull(rs1("字段1")),"",rs1("字段1")
.textmatrix(i,1)=iif(isnull(rs1("字段2")),"",rs1("字段2")
.
.
.
.textmatrix(i,n)=iif(isnull(rs1("字段n+1")),"",rs1("字段n+1")
rs1.movenext
.rows=.rows+1
next i
end with