VB 不用ADODC控件,怎么把连接数据显示在MSFlexGrid

用adodb对象

Dim 数据库连接 As ADODB.Connection
Dim 记录集0 As ADODB.Recordset

Set 数据库连接 = New ADODB.Connection
数据库连接.Mode = adModeRead
数据库连接.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" _
& 数据库路径0 & ";Jet OLEDB:Database Password=" & 数据库密码0
数据库连接.CursorLocation = adUseClient
数据库连接.Open
Set 记录集0 = New ADODB.Recordset
记录集0.Open sql查询语句, 数据库连接, adOpenKeyset, adLockReadOnly

set MSFlexGrid1.datasourse=记录集0
Dim rs2 As ADODB.Recordset
strSQL = "select * from 生产基本报表 where " & Combo1cx.Text & " like " & txtcxcx.Text & ""
Set rs2 = ExeSQL(strSQL) '调用公共函数ExeSQL
Set MSFlexGrid1.DataSource = rs2