VB6将输入框数据插入数据库

Private Sub Command3_Click(Index As Integer)
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
' 创建数据库连接
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=数据库IP,端口;Initial Catalog=数据库名;User ID=用户名;Password=密码;"
    Dim strText As String
    '获取输入框的值
    strText = Text2.Text
    '在SQL语句中调用变量strTsxt
    sql = "INSERT INTO webdata.dbo.sys_sal_test (cardId, head_id, empCode) VALUES('" & strText & "', '2', '3');"
    conn.Open
    conn.Execute sql, rowsAffected
    Debug.Print rowsAffected & " rows affected."
    
    
    '弹窗显示
    MsgBox "成功修改" & rowsAffected & " 行", vbInformation, "执行结果"
    ' 关闭记录集和连接
    conn.Close
    Set conn = Nothing
    
End Sub