Связь между SQL-сервером и VBA

Question

Я не могу установить соединение между сервером SQL и формой 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

Answer 1

Вам необходимо добавить ссылку на Microsoft ActiveX Data Objects X.X Library, где X.X - версия ADO.

Затем вы получите сообщение об ошибке во второй строке, потому что вы пытаетесь повторно объявить переменную cnn.