数据库连接中的另一个问题
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\db_medicine.MDB "
rs.Open "tb_kc ", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 100
End Sub

[解决办法]
Private Sub Form_Load()
Dim cn As New ADODB.Connection ‘新建connection对象
Dim rs As New ADODB.Recordset ’新建recordset对象
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\db_medicine.MDB " '连接数据库
rs.Open "tb_kc ", cn, adOpenKeyset, adLockOptimistic ‘tb_kc 应该是个sql语句
Set MSHFlexGrid1.DataSource = rs ’绑定该sql语句的结果
MSHFlexGrid1.ColWidth(0) = 100 ‘设第一列宽为100
End Sub

建议楼主找资料看的明白