Try
 
            con.Open()
        cmd.CommandText = _
        "insert into Anlagenbuchhaltung " & _
        "AufrufnameAB, ProgrammaufrufAB, " & _
        "values ('" & _
        txtAufrufname.Text & "', " & _
        txtProgrammaufruf.Text) & ")" <- hier soll eine "end-of"-Anweisung _
        hin
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try