测试VBA是否与SQL连接？以及将TExtbox数据存入sql表中？
Dim CN As New ADODB.Connection
Dim rs As ADODB.recordset
Dim sql As String
Set CN = New ADODB.Connection
CN.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 = Nothing
Set 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