Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objConn As Object
        Dim ServerName
        Dim DSN
        Dim UID
        Dim PWD
        Dim ConnectString
        Dim objRecordset



        objConn = CreateObject("ADODB.Connection")

        'Определяем параметры подключения к базе данных
        Try

            ServerName = "VIBASE2\TESTVIMB" 'имя или IP-адрес сервера
            DSN = "master" 'имя базы данных
            UID = "sa" 'логин пользователя SQL-сервера
            PWD = "ntcndbv," 'пароль пользователя SQL-сервера
            ConnectString = "Provider=SQLOLEDB;" & _
                            "Data Source=" & ServerName & _
                            ";Initial Catalog=" & DSN & _
                            ";UID=" & UID & ";PWD=" & PWD
            objConn.ConnectionString = ConnectString
            objConn.ConnectionTimeOut =  15 
            objConn.CommandTimeout =  30 
            'Подключаемся к базе данных
            objConn.Open()
            'Выполняем запрос

            objRecordset = objConn.Execute("exec master.dbo.Rights_Fedushkin")
        Catch Ex As Exception ' или... какой у тя там эксэпшн вылазиет, посмотришь вобщем.
            MessageBox.Show("Предупреждение: " + Ex.Message)

        End Try


        'Закрываем соединение
        objConn.Close()
        objConn = Nothing
        objRecordset = Nothing


    End Sub
End Class

Public Class Form1

Dim ConnectString as string ' Строка соединения с БД
Dim objConn As Object ' Объект соединения

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyBase.Load
 ' При загрузке формы создаем объект соединения
 objConn = CreateObject("ADODB.Connection")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click
Dim objRecordset As Object
 'Определяем параметры подключения к базе данных
 Try
  'Подключаемся к базе данных
  objConn.Open()
  'Выполняем запрос
  objRecordset = objConn.Execute("exec master.dbo.Rights_Fedushkin")
 Catch Ex As Exception ' или... какой у тя там эксэпшн вылазиет, посмотришь вобщем.
  MessageBox.Show("Предупреждение: " + Ex.Message)
 End Try
 'Закрываем соединение
 objConn.Close()
 objConn = Nothing
 objRecordset = Nothing
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles CheckBox1.CheckedChanged
Dim ServerName as string
Dim DSN as string
Dim UID as string
Dim PWD as string

 ServerName = "VIBASE2\TESTVIMB" 'имя или IP-адрес сервера
 DSN = "master" 'имя базы данных
 UID = "sa" 'логин пользователя SQL-сервера
 PWD = "**123," 'пароль пользователя SQL-сервера
 ' Переменная строки соединения берётся та, которая объявлена для всего класса
 ConnectString = "Provider=SQLOLEDB;" & _
 "Data Source=" & ServerName & _
 ";Initial Catalog=" & DSN & _
 ";UID=" & UID & ";PWD=" & PWD
 ' Объект соединения - объявлен в классе и инициализирован в Form1_Load
 objConn.ConnectionString = ConnectString
 objConn.ConnectionTimeOut =  15 
 objConn.CommandTimeout =  30 
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles CheckBox2.CheckedChanged
' Содиняемся к FireBird
 ' Переменная строки соединения берётся та, которая объявлена для всего класса
 ConnectString = "Provider=LCPI.IBProvider.3.Free;Password=masterkey;Persist Security 
Info=True;" _
     & "User ID=sysdba;Data 
Source="""";Location=D:\TEST.GDB;ctype="""";dbclient_library=gds32.dll;dbclient_type=fb"
 ' Объект соединения - объявлен в классе и инициализирован в Form1_Load
 objConn.ConnectionString = ConnectString
 objConn.ConnectionTimeOut =  15 
 objConn.CommandTimeout =  30 
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles CheckBox3.CheckedChanged
' Содиняемся к БД FoxPro
 ' Переменная строки соединения берётся та, которая объявлена для всего класса
 ConnectString = "Provider=VFPOLEDB.1;Data Source=C:\test_forx;Password="""";Collating 
Sequence=MACHINE"
 ' Объект соединения - объявлен в классе и инициализирован в Form1_Load
 objConn.ConnectionString = ConnectString
 objConn.ConnectionTimeOut =  15 
 objConn.CommandTimeout =  30 
End Sub

End Class