Banco access para SQL

Galera, bom dia, não consegui sanar a minha dúvida ainda, vou tentar explicar melhor: preciso colocar esse código que faz acesso ao accesss para mudar para acessar SQL permanecendo com a função addnew:

Public Sub Salvar()
Dim tbTempoArm As Recordset

On Error GoTo Err_Salvar

wkSPT.BeginTrans

If FbDadosOK() Then
Set tbTempoArm = DBSPT.OpenRecordset(´TempoArm´, dbOpenTable)
tbTempoArm.index = ´pkTempoArm´

tbTempoArm.Seek ´=´, Trim(Left(cboProduto, 3)), Trim(Left(cboNó, 4)), txtData
If tbTempoArm.NoMatch Then
tbTempoArm.AddNew
tbTempoArm(´CdProduto´) = Trim(Left(cboProduto, 3))
tbTempoArm(´CdNo´) = Trim(Left(cboNó, 4))
tbTempoArm(´DtTempoArm´) = Format(txtData, ´dd/mm/yyyy´)
Else
tbTempoArm.Edit
End If
If cboTempo ´DIAS´ Then
txtTempoResidência = ConverteUnidade(cboTempo, ´DIAS´, txtTempoResidência)
End If
tbTempoArm(´VlTempoRes´) = FCur(txtTempoResidência)

tbTempoArm.Update

tbTempoArm.Close

Call Novo
End If

wkSPT.CommitTrans