主题：[求助]QQ交流动态代码求助（已解决）

      Dim cmd As New SQLCommand
    Dim dt As DataTable

    cmd.ConnectionName = "数据源"
    cmd.CommandText = "SELECT * From {用户表} Where [用户] = '" & _UserName & "'" 
    dt = cmd.ExecuteReader
    If dt.DataRows.Count > 0 Then
    Dim Proc As New Process '定义一个新的Process
    Proc.File = "tencent://message/?uin=" & dt.Datarows(0)("QQ号")
    Proc.Start()

    End If