VB调用过程后,如何在mshflexgrid中显示结果

Question

这是个查询过程,执行后如何在mshflexgrid中显示结果?Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
con.Open "Provider=Sybase.ASEOLEDBProvider.2;Initial Catalog=qcsoft;Password=gzsxhsd;User ID=sa;Data Source=softado;Persist Security Info=True"
Set cmd.ActiveConnection = con
cmd.CommandType = adCmdText
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "find"
cmd.Parameters("@bm_code") = Combo1
cmd.Parameters("@bdate") = DTPicker1
cmd.Parameters("@edate") = DTPicker2
cmd.Execute
End If

Answer 1

Set rs = cmd.Execute
Set HFlexGrid1.DataSource = rs