vba怎么连接sql数据库？

Question

点登录按钮，对应的字段插入到连接上的sql数据库中，跪求完整代码，vba一点都不懂，求高手指点！

Answer 1

首先要引用“Microsoft ActiveX Data Object 2.x”
然后是代码：
Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
'这个连接语句自己改
Dim ConnStr1 AS String:ConnStr1="Provider=SQLOLEDB.1;Password=[PW];User ID=[UID];Database=[DBName];Data Source=[Host,Port]"
conn.ConnectionString = ConnStr1
conn.Open
rst.CursorLocation = adUseClient
rst.Open sql, conn, 3, 3
Set exesql = rst
Set conn = Nothing
Set rst = Nothing
Exit Function
er:
If err.Number = -2147467259 Then
MsgBox "服务器已关闭，请联系相关人员解决"
End
Else
MsgBox err.Number & Chr(10) & err.Description
End
End If
End Function

最后引用：
call exesql("Insert into TableName XXXX")