Não ria de mim....

Na instrulão Insert Into tô comendo bola, não sei como faze-lo no "*"

 

Dim Rs As New adodb.Recordset
Dim rs1 As New adodb.Recordset
Set Rs = New adodb.Recordset
Rs.Open "Select  * from Lançamentos", bd
QdSQL = "Select * From [C:DadosServidorBDete.mdb].Lançamentos Where Numero = " & (Rs.Fields!Numero & " And Ponto = " & Rs.Fields!Ponto & " And Horário = " & Rs.Fields!Horário
Do While Not Rs.EOF
    Set rs1 = New adodb.Recordset
    rs1.Open QdSQL, bdlocal
    If rs1.EOF Then
      'insert into
          bdlocal.Execute "Insert Into * From Lançamentos" ' tá errado essa linha
    Else
      'update
      bdlocal.Execute "UPDATE * From Lançamentos" ' essa ainda não testei
    End If
    Rs.MoveNext
Loop

Não ria de mim mas

fiz isso

 

Dim Rs As New adodb.Recordset
Dim rs1 As New adodb.Recordset
Set Rs = New adodb.Recordset
Rs.Open "Select  * from Lançamentos", bd
QdSQL = "Select * From [C:DadosServidorBD.mdb].Lançamentos Where Numero = " & Rs.Fields!Numero & " And ponto = " & Rs.Fields!Ponto & " And Horário = " & Rs.Fields!Horário
Do While Not Rs.EOF
    Set rs1 = New adodb.Recordset
    rs1.Open QdSQL, bdlocal
    If rs1.EOF Then
      'insert into
      bdlocal.Execute "Insert Into * From Lançamentos" ' dá erro aqui, não consigo fazer o insert into com o [*]
    Else
      'update
      bdlocal.Execute "UPDATE * From Lançamentos" ' essa linha ainda não testei mas deve funcionar
   
    End If
    Rs.MoveNext
Loop