VB6.0 msflexgrid控件 连接MDB数据库的问题

添加个adodc控件

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=D:\数据库名.mdb"

Adodc1.RecordSource = "select * from sheet"

Adodc1.Refresh

Set MSHFlexGrid1.DataSource = Adodc1

MSFlexGrid没有这个功能，非要实现的话，可以这样：

使用一个文本框，其大小与单元格大小一样，单击表格的时候判断单击的位置，即单击的行列号，让文本框显示出来并覆盖在单元格的上方。在文本框的change事件中，将文本框的内容赋值给单元格。

以前实现过这个功能。

用adodb对象

Dim 数据库连接 As ADODB.Connection

Dim 记录集0 As ADODB.Recordset

Set 数据库连接 = New ADODB.Connection

数据库连接.Mode = adModeRead

数据库连接.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0Data 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

---