Private Sub cmb_rem_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmb_rem.Click
 
        Dim constring As String
        constring = ("Data Source=z-de-sms-test; Initial Catalog=lizenzsmsdb;" & _
          "Trusted_Connection=yes")
        'Benutzer und Computer sind in der Administratorgruppe auf dem Server
 
        Dim myconnHersteller As New SqlConnection(constring)
        Dim mycmdHersteller As SqlCommand
 
        myconnHersteller.Open()
 
        mycmdHersteller = New SqlCommand("DELETE FROM Tab_Hersteller WHERE" & _
          "AutoID=" & lst_Hersteller.SelectedValue, myconnHersteller)
 
        mycmdHersteller.ExecuteNonQuery()
        myconnHersteller.Close()
 
    End Sub