vb6延时等待返回结果再执行下面代码
比如
Public Function Execute(ByVal Sql As String) As Recordset
    sendstr = "select * from 测试表"
    winclient.Connect IP, port
    If winclient.State = 0 Then
        winclient.Connect
    End If
End Function

问题补充：
程序产生记录集"rs"可设成一个Boolean
比如a=true 产生记录集"rs"
相反，没有产生

用winsock发送了一条sql
我要等待程序产生记录集"rs"在往下执行下面的代码上面的代码应该
怎么加
Public Function Execute(ByVal Sql As String) As Recordset
    sendstr = "select * from 测试表"
    winclient.Connect IP, port
    If winclient.State = 0 Then
        winclient.Connect
    End If

（这里应该怎么加）
End Function
想高手请教，谢先
在线等

谢谢蜘蛛侠

我知道一种方法，用timer控件，当不灵活
我也在等
能回复就非常感谢

多谢，

问题已解决，马上上分