Private Sub Command1_Click() Dim mrc As New ADODB.Recordset Dim txtsql As String Dim msgtext As String txtsql = "select a.xmmc,a.gg from 药品目录 a" Set mrc = obj.ExecuteSql(txtsql, msgtext) Set DataGrid1.DataSource = mrc //错误出在这一句//

End Sub 执行时为何报错?"行集合不能作为标签"请问代码该怎么写?

不大看得懂

private mycon as new adodb.connction
private myres as new adodb.recordset

private sub command1_click()
mycon.connectionstring="xxxxxxx"
mycon.open
myres.open "select xmmc,gg from a",mycon,2,2

set datagrid1.datasource=myres

end sub

忘记说了，数据库、记录集不要关得太勤快，在同一个 Sub 里面及时关闭的话， Datagrid 就显示不出东西了，等 Form_unload 的时候再关闭。

问题应该出在自个写的 obj里了