Visual Basic - no me resulta insert continuos...

Tengo la siguiente rutina:

'Dym_turn_music_fin

If Rst!Code1 = 171 And Rst!Code2 = "MUSIC" And Rst!Code3 = "210" Then

DB.Execute "Insert Into Dym_turn_music_fin (Code1, Code2, Code3)" _
& "Values (" & Rst!Code1 & ", '" & Rst!Code2 & "', '" & Rst!Code3 & "')"

'Dym_turn_music_trn

ElseIf Rst!Code1 = 345 And Rst!Code2 = "MUSIC" And Rst!Code3 = "130" Then

DB.Execute "Insert Into Dym_turn_music_trn (Code1, Code2, Code3)" _
& "Values (" & Rst!Code1 & ", '" & Rst!Code2 & "', '" & Rst!Code3 & "')"

End If

Rst.MoveNext

Wend

Hasta aqui ok, mas en la tabla de destino para los datos que cumplen con
la condicion, en vez de ir acumulandose solo recibe un registro y nada mas,
es decir, cuando la condicion --If Rst!Code1 = 171 And Rst!Code2 = "MUSIC" And Rst!Code3 = "210" Then--
se cumple el registro es insertado en donde corresponde -- DB.Execute "Insert Into Dym_turn_music_fin (Code1, Code2, Code3)" _
& "Values (" & Rst!Code1 & ", '" & Rst!Code2 & "', '" & Rst!Code3 & "')"-- pero cuando otro registro
cumple con la misma condicion este no se inserta. Es como si la tabla de destino recibiera solo un registro...
segun entiendo el comando insert debiera agregar el siguiente dato a continuacion del ultimo.

Si alguien entiende, desde ya muchas gracias.
[email protected]