Public Sub Execute(ByVal Query As String, ByVal Timeout As Integer = 60, ByVal _
  ConnectionString As String = "")
...
   Try
      Dim sdc As SqlConnection, SDQ As SqlCommand
      sdc = New SqlConnection(ConnectionString)
      sdc.Open()
 
      SDQ = New SqlCommand(Query, sdc)
      SDQ.CommandTimeout = Timeout
      SDQ.ExecuteNonQuery()
      sdc.Close()
   Catch ex As Exception
      'Fehlerprozedur, Logeintrag, Benachrichtigung ...
      '...
   End Try
End Sub