数据库连接中的另一个有关问题

数据库连接中的另一个问题
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

建议楼主找资料看的明白