测试VBA是否与SQL连接？以及将TExtbox数据存入sql表中？解决方案

测试VBA是否与SQL连接？以及将TExtbox数据存入sql表中？Dim CN As New ADODB.ConnectionDim rs As ADODB.recordsetDim sql As StringSet CN = New ADODB.ConnectionCN.Open "Provider=SQLOLEDB;user ID=sa;Password=***;Date Sourse=(127.0.0.1);Datebase=smh"sql = "insert into smh(T) values( textbox1.text )"Set rs = NothingSet CN = Nothing——解决方案——————————————————–VB code

Private Sub ado_proc()    Dim conn As ADODB.Connection    Dim sSql As String     Set conn = CreateObject("ADODB.Connection")    conn.Open "Provider=SQLOLEDB;user ID=sa;Password=***;Date Sourse=(127.0.0.1);Datebase=smh"    If conn.State = adStateOpen Then        '到此部说明数据库已连接        sSql = "insert into smh(T) values( textbox1.text )"        '         conn.Close    End If    Set conn = NothingEnd Sub联系朋友别欠费，天空辽阔任你飞，再多困难别后退! "