Option Explicit
Private Sub BOTAO_SALVAR_Click()
totalregistro = Worksheets("planilha1").UsedRange.Rows.Count + 1
Worksheets ("planilha1")
'Cells(totalregistro, 15) = CX_DB
Cells(totalregistro, 2) = CX_RRM
Cells(totalregistro, 4) = CX_ENTRADA
Cells(totalregistro, 10) = CX_CDD
Cells(totalregistro, 3) = CX_CDD
Cells(totalregistro, 11) = CX_MODELO
Cells(totalregistro, 12) = CX_SERIAL1
Cells(totalregistro, 13) = CX_SERIAL2
Cells(totalregistro, 8) = CX_DATA
Dim AdoConexao As New ADODB.Connection
Dim rsIncluir As New ADODB.Recordset
Dim Banco As String
Banco = "bancocaminho"
AdoConexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source =" & Banco & "; Persist Security Info=False;Jet Oledb:DataBase password=1234"
AdoConexao.Open
rsIncluir.Open "banco", AdoConexao, adOpenKeyset, adLockOptimistic
rsIncluir.AddNew
rsIncluir!RRM = CX_RRM
'rsIncluir!Cliente = CX_CLIENTE
rsIncluir!NFEntrada = CX_ENTRADA
rsIncluir!Cliente = CX_CDD
rsIncluir!mnemonico = CX_CDD
rsIncluir!Modelo = CX_MODELO
rsIncluir!DataEntrada = CX_DATA
rsIncluir!Serial1 = CX_SERIAL1
rsIncluir!Serial2 = CX_SERIAL2
rsIncluir.Update
rsIncluir.Close
AdoConexao.Close
CX_SERIAL1 = ""
CX_SERIAL2 = ""
CX_SERIAL1.SetFocus
End Sub