Enligt ett tips här på siten, så skall man kunna starta SQLServer
så här:

Dim objSQL As SQLDMO.SQLServer
Dim strServerName
Dim strUserName
Dim strPassword

Set objSQL = New SQLDMO.SQLServer
On Error Resume Next
objSQL.Start strServerName, strUserName, strPassword
If Err.Number <> 0 Then
MsgBox "Fel: " & Err.Number & " " & Err.Description
objSQL.Connect strServerName, strUserName, strPassword
objSQL.Shutdown True
End If
Set objSQL = Nothing
Detta stöter på problem. Jag antar först att mina dimmar måste dimmas anulunda.
Sen så säger error:
[SQL-DMO] Fel i tjänstehanteraren: RPC-Servern är inte tillgänglig.
Vad/hur skall jag göra?

Var får du felet? I Start eller Connect?
Vad har du satt dina variabler till?

Hmm var talar du om vad servern hetern? Användarnamn och lösenord?
Såg ut som om du deklarerade dem lokalt men inte tilldelade dem
något värde...

/Emma

Du har rätt Emma, det är ju det jag är så osäker på hur jag skall skriva in det.
Jag har inget lösenord eller login, hur gör jag då?
Om jag kalla servern för apa, kan man då skriva strServerName=apa?

Löst, jag tog det igenom dos.
Shell Environ$("commando.com") & "net start mssqlserver"

Annars så postade jag en liten app i filarean för ett par dagar sen som visar hur man stoppar och startar en service...

http://www.pellesoft.nu/login/upload/t_view4.asp?tid=232

Tack, det där såg väldigt intressant så jag kommer att undersöka det lite närmare.