[VB6] Errori in uso combinato ADO/DAO

[printlist]

salve ragazzi ho un problemino.Sotto riporto il codice che ho usato.Attraverso un Toolbutton vado a salvare I dati su due tabelle diverse.Il mio problema eè che non so comegestire le due cose perchè se lo avete notato, per aggiornare il database su la tabella denominata "Rubrica Uso un controllo DATA, invece per salvare i dati su una tabella denominata Storico Uso una connessione ADO mi potete aiutare? Grazie!!!!!!


Private Sub ToolbarButton1_Click()
If XPCombo1.Text = "" Then
MsgBox "Inserire L'operatore nel campo operatore " & "Operatore." & " è vuoto"
Exit Sub
End If
Data1.Recordset.Update
Dim DB As ADODB.Connection

Dim T As ADODB.Recordset
Dim strCnn As String
Set DB = New ADODB.Connection
strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "/Agenda.mdb"
' & "Persist Security Info=False"
DB.Open strCnn
Set T = New ADODB.Recordset
T.LockType = adLockOptimistic
T.Open "Storico", DB, , , adCmdTable
T.AddNew
T("ID") = txtSname.Text
T("Piano") = txtSmob.Text
T("Stanza") = txtCph.Text
T("O_F") = txtHph.Text
T("Call_Center") = txtSeno.Text
T("Operatore_SIT") = txtScname.Text
T("DataApertura") = txtSdept.Text
T("Motivo Segnalazione") = Txtmotivo.Text
T("Personale Intervenuto") = XPCombo1.Text
T("DataChiusura") = Dtp2.Value
T("Ora Intervento") = DTPicker1.Value
T("Note Intervento") = txtAdd.Text
T.Update

T.Close
DB.Close
Data1.Recordset.Delete
Form1.Show
Unload Me
End Sub


Private Sub ToolbarButton2_Click()


txtFirst.Enabled = True
txtLast.Enabled = True
txtTitle.Enabled = True

txtNick.Enabled = True
txtEmail.Enabled = True



Data1.Recordset.Edit
ToolbarButton2.Enabled = False

DTPicker1.Value = Time()
DTPicker1.Enabled = True
Dtp2.Enabled = True
DTPicker1.Visible = True
ToolbarButton3.Enabled = True
txtAdd.Enabled = True
End Sub

[oregon]

A prescindere dal particolare quesito, mi sembra che il problema principale sia quello di aver mischiato due tecniche (DAO e ADO) nello stesso progetto.

Elimina il controllo Data (e il riferimento a DAO, anche perche' obsoleto) e utilizza solamente ADO.