我下面的这种方法可以用吗?老是出错
Private Sub Command6_Click()
On Error GoTo abc
Dim msgtext As String
Dim ret As ADODB.Recordset
Set ret = New ADODB.Recordset
sqlstr = "select * from jydm"

Set ret = EXECSQL(sqlstr, msgtext)
Set MSFlexGrid2.DataSource = ret <<<====这句话有问题,如何改

abc:
MsgBox Err.Description
End Sub

老是出现"对象变量或with块变量未定义"