On Error Resume Next
 
Set oRs = oConn.Execute("SELECT REMOTE FROM standorte WHERE COOKIE = " & cookie)
 
If oRs.Fields(0).Value = "f" Then
 
   oConn.Execute ("UPDATE standorte SET REMOTE = 'w' WHERE COOKIE = " & cookie)
 
   If Not oConn Is Nothing Then oConn.CloseConnection
   Set oConn = Nothing
 
   Shell "C:\Programme\Progs\fast_restart.exe", vbHide
End If

On Error Resume Next
 
Dim a As Object
 
If a = "test" Then MsgBox "Fehler"
 
End