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
想高手请教，谢先
在线等

关注～我也有类似问题～
想知道除了用Multi-Thread和2个EXE之外的其他方法～

谢谢蜘蛛侠

我有说什么吗？我也在等高手来解答～

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

定义一个返回BOOLEAN的函数，然后使用DOEVENTS方法。下面是一个小例子：

Dim Conn As New ADODB.Connection
Dim Rs1 As ADODB.Recordset
Private Sub Command1_Click()
    Do While Execute(Sql) = False
        DoEvents '直到返回记录集，才会执行下面的代码
    Loop
    winclient.Connect IP, Port
    If winclient.State = 0 Then
        winclient.Connect
    End If
End Sub

Public Function Execute(Optional ByVal Sql As String) As Boolean
   '连接数据源
   conn.Open .............
   '产生记录集
   Rs1.Open Sql, Conn, 1, 1 '注意这里的Rs1，要定义为窗体变量
   Execute = True
End Function

多谢，

问题已解决，马上上分