O posibilă soluţie in VB6 cu DMO (efortul de adaptare e minim pentru VB[.NET] şi SMO):
Dim serverSql As New SQLServer
serverSql.LoginTimeout = 30
serverSql.Name = "server\instantaSQL"
serverSql.Login = "sa"
serverSql.Password = "parola pestelui prajit"
serverSql.Connect
MsgBox serverSql.JobServer.Status, , "Daca Status=1 atunci este Running"