Imports System.Data.SqlClient
 
Public Class Form1
 
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
     Handles Button1.Click
      If IsSQLServerOnline("Server=.\sqlexpress;Trusted_Connection=True;Connect" & _
      "Timeout=5;") Then
 
         MsgBox("Server online")
      Else
         MsgBox("Server offline")
      End If
   End Sub
 
   Public Function IsSQLServerOnline(conn As String) As Boolean
      Try
         Using server As New SqlConnection(conn)
            server.Open()
            Return (server.State = ConnectionState.Open)
         End Using
      Catch ex As SqlException
         Return False
      End Try
   End Function
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control