Alto problema con sql

[1nostromo]

Buon giorno, considerato che gentilmente vi offrite a fornirci aiuto a noi autodidatti
avrei giusto appunto un altro problema che ho in parte risolto.
Vado a spigare il problema, questo è il codice incriminato,ho creato una serie di tabelle
che rachiudono le prestazioni infermieristiche a seconda della del problema del
paziente. Il codice che segue, fa parte di un form avente tra le altre cose una
ListView, nella quale voglio che appaiano, a richiesta, i contenuti delle tabelle del database,
sensa costuire form per ogli tabella dello stesso argomento ess.[tblTariffarioPrestazioni],[tblTariffarioFunzioneDiEliminazione][tblTariffarioFunzioneDelAlimentazione] ecc.
Con il codice sotto riportato li inserimenti funzionano bene,ma qundo proseguo il codice con le
altre tabelle gli inserimente avvengono correttanente con lunica differenza che li carica solo nella tabella ;
[tblTariffarioFunzioneDiEliminazione] e non nella tabella interessata. L'istruzione "Case" che trovate scritto
è l'ultima prova che ho fatto. Ho cercato anche su http://msdn.microsoft.com/it-it/library/zkcaxw5y(v=vs.110).aspx, pero non ho trovato nulla che faccia al caso mio, evidwntemente non so dove cercare.

Select Case sender.tag
Case 1, 2
ds = New DataSet
da = New OleDbDataAdapter("INSERT INTO tblTariffarioPrestazioni(Prestazioni,Tariffa,Sconto)VALUES('" & txtPrestazioni.Text & "','" &
txtTariffa.Text & "','" & txtSconto.Text & "')", Archivio)
da.Fill(ds, "tblTariffarioPrestazioni")
txtPrestazioni.Focus()
Call MostraDati()

Case Else
ds = New DataSet
da1 = New OleDbDataAdapter("INSERT INTO
tblTariffarioFunzioneDiEliminazione(Prestazioni, Tariffa, Sconto)VALUES('" &
txtPrestazioni.Text & "','" & txtTariffa.Text & "','" & txtSconto.Text & "')",
Archivio)
da1.Fill(ds, "tblTariffarioFunzioneDiEliminazione")
lvDisplay.Enabled = True
Call MostraDati()

Quando vado a inserire nelle altre tabelle i dati nelle atre tabelle non
recepiscono i dati, ma vengono caritati sulla
[tblTariffarioFunzioneDiEliminazione] ,"CHE NON DEVONO ESSERE CARICATI

Select Case sender.tag

Case 1, 2
ds = New DataSet
da2 = New OleDbDataAdapter("INSERT INTO
tblTariffarioFunzioneRespiratoria(Prestazioni, Tariffa, Sconto)VALUES('" &
txtPrestazioni.Text & "','" & txtTariffa.Text & "','" & txtSconto.Text & "')",
Archivio)
da2.Fill(ds, "tblTariffarioFunzioneRespiratoria")
Call MostraDati()
End Select
End Select

Sento di essere sulla strada buona, potete essere così gentile di aiutarmi?
Grazie e scusate del disturbo.:byebye: