Как подсоединяться к базе на SQL сервере? - VB

Формулировка задачи:

Подскажите кто может как подсоединяться к базе на SQL сервере

Решение задачи: «Как подсоединяться к базе на SQL сервере?»

textual
                            Листинг программы 
                        

                              Dim strConn As String
  Dim strQuery As String
  Dim cnn As ADODB.Connection
  Dim rst As ADODB.Recordset
  Dim Stat As Boolean ' флаг типа связывания
 
  If Stat = True Then
    ' если использовать статическое связывание
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
  Else
    ' если использовать динамическое связывание
    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
  End If
  '
  strConn = "Provider=SQLOLEDB.1;Password=ПАРОЛЬ ;" + _
            "Persist Security Info=True;User ID=ПОЛЬЗОВАТЕЛЬ ;ConnectTimeout=1200;" + _
            "Initial Catalog=БАЗА ;Data Source=СЕРВЕР "
  '
  cnn.Open strConn
  '
  strQuery = "select * from ТАБЛИЦА "
  '
  rst.Open strQuery, cnn
                        