'Daten schreiben
    Try
        cmd.Parameters.AddWithValue("@Val1", myValue1)
        cmd.Parameters.AddWithValue("@Val2", myValue2)
        cmd.Parameters.AddWithValue("@Val3", myValue3)
 
        If conn.State <> ConnectionState.Open Then
            conn.Open()
        End If
 
        cmd.ExecuteNonQuery()
 
'--- bis hierhin dauert es nur knapp 1 ms
 
        cmd = New SqlCommand("SELECT @@IDENTITY FROM " & TableName, conn)
 
        Try
            retVal = CInt(cmd.ExecuteScalar)
        Catch ex As InvalidCastException
            retVal = 0
        End Try
 
'--- bis hierhin dauert es zwischen 750ms bis zu 1200 ms