Dim fallnummer As Integer = 0
 
Dim cmd As New SqlCommand("INSERT INTO tbl_stoermeldung (Station," & _
                                        "KostenstelleNr, KostenstelleNa," & _
                                        "ZimmerRaum, Ansprechpartner, TelNr," & _
                                        "Beschreibung) VALUES(" & _
                                        "@Station, @KostenstelleNr," & _
                                        "@KostenstelleNa, @ZimmerRaum," & _
                                        "@Ansprechpartner, @TelNr," & _
                                        "@Beschreibung);" & _
                                        "SELECT scope_identity();", conn)
 
fallnummer = CInt(cmd.ExecuteScalar)