Sql server SQL server与VBA之间的连接

我无法在SQL server和VBA窗体之间建立连接。它抛出以下错误

编译器错误： 未定义用户定义的类型

以下是包含服务器详细信息的代码：

Private Sub CommandButton1_Click()
  Dim cnn As ADODB.Connection
  Dim cnn As ADODB.Command
  Set cnn = New ADODB.Connection
  Set cnn = New ADODB.Command
  cnn.Open "Provider=sqloledb;" & _
           "Data Source=<IP>;" & _
           "Initial Catalog=<DB>;" & _
           "User Id=<USER>;" & _
           "Password=<PASS>"
  MsgBox "connection successful"
  cnn.Close

End Sub

Private子命令按钮1\u单击（）
将cnn设置为ADODB.Connection
将cnn设置为ADODB.Command
设置cnn=newadodb.Connection
Set cnn=New ADODB.Command
打开“Provider=sqloledb；”&_
“数据源=；”&_
“初始目录=；”和_
“用户Id=；”&_
“密码=”
MsgBox“连接成功”
有线电视新闻网，结束
端接头

您需要添加对Microsoft ActiveX数据对象X.X库的引用，其中X.X是ADO版本

---

然后，第二行将出现错误，因为您试图重新声明

cnn

变量。

您需要添加对

Microsoft ActiveX数据对象X.X库的引用，其中X.X是ADO版本

然后，由于您试图重新声明您的
cnn
变量，第二行将出现错误。
请不要在公开帖子中包含ip/用户/密码信息。编辑以删除。您是否注意到正在对cnn进行两次尺寸标注？或者这只是一个打字错误吗？请不要在公开帖子中包含ip/用户/密码信息。编辑以删除。您是否注意到正在对cnn进行两次尺寸标注？或者这只是一个打字错误？