谁能救救我，急用啊

Question

如何在vb中实现输入sql语句，然后运行该语句，并把结果显示出来，要求对sql语言的全支持．谢谢了！

Answer 1

Function ExecuteSQL(ByVal cnn As ADODB.Connection, ByVal strSql As String) As ADODB.Recordset
Dim rec As New ADODB.Recordset
rec.Open strSql, cnn, adOpenKeyset, adLockOptimistic '打开记录集
ExecuteSQL = rec
End Function

Answer 2

我再把要求详细的说一下，是要求在VB中输入并接受一条SQL语句，点击运行可以运行该语句并可以在VB程序中显示执行的结果，就这样，麻烦大家帮帮我，以下是我的原码
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean
Public Function OpenCn() As Boolean
Dim mag As String
'On Error GoTo strerrmag
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = "127.0.0.1" '服务器的名字
conn.Properties("initial catalog").Value = "Education_Manage" '库名
conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Open
OpenCn = True
addFlag = True
If OpenCn = True Then
MsgBox "连接成功，请输入语句进行查询", vbDefaultButton1, "连接状态"
Else: GoTo strerrmag
End If
Set DataGrid1.DataSource = rs
Exit Function
strerrmag:
mag = "Data can't connect"
Call MsgBox(mag, vbOKCancel, "Error:Data connect")
addFlag = False
End
End Function
连接成功了，可是我不知道怎么运行SQL语句并显示，麻烦大虾帮我看看。