dim strConnect as string=[Строка подключения] 
 Dim test As New SqlConnection(strConnect)

 Try: test.Open()

     Dim srvvrs As String= "Версия сервера: " + test.ServerVersion.ToString
     Dim srvps As String= "Размер сеевого пакета: " + test.PacketSize.ToString
     Dim srvstate As String= "Состояние сервера: " + test.State.ToString
     Dim srvid As String= "Идентификатор рабочей станции: "+ test.WorkstationId.ToString
     Dim srvds As String="Имя сервера: " + test.DataSource.ToString
     Dim srvdb As String= "База данных: " + test.Database.ToString
     Dim srvtime As String= "Время ожидания соединения: " + test.ConnectionTimeout.ToString
     Dim srvcs As String= "Строка соединения: " + test.ConnectionString.ToString
      
      MsgBox("Соединено!" + vbCrLf + vbCrLf + _
            srvvrs + vbCrLf + _
            srvds + vbCrLf + _
            srvstate + vbCrLf + _
            srvid + vbCrLf + _
            srvdb + vbCrLf + _
            srvtime + vbCrLf + _
            srvps + vbCrLf + _
            srvcs, MsgBoxStyle.Information)
           
            test.close

 Catch testfail As SqlException

            msgBox("Не соединено!" + vbCrLf + vbCrLf + _
                       testfail.Message, MsgBoxStyle.Critical)

 Finally
           If Not test Is Nothing Then
                test.Dispose()
            End If
end try