eu tenho este exemplo mais ele salva

Private Sub txtPla_LostFocus()
    lstNova.AddItem  & txtPla.Value

End Sub

Private Sub cmdSalvar_Click()
    Dim X As Long
    If rsPla.State = 1 Then rsPla.Close
    rsPla.Open "SELECT * FROM placas", cnSQL, adOpenDynamic, adLockOptimistic
    For X = 0 To lstNova.ListCount - 1
        rsPla.AddNew
        rsPla.Fields("pla_pla") = lstNova.List(X)
        rsPla.Fields("ent_pla") = Format(Date, "dd/mm/yyyy")
    Next X
    rsPla.Update
    rsPla.Close
    Set rsPla = Nothing
   
End Sub

edson, nao entendi sua pergunta ?

desc. que não termini a frase

eu quero salva tambem todo que esta no listbox

num BD

 

ué edson, nao sei se entendi ainda, mas se for salvar só outros dados na tabela é so fazer igual a data, assim..

 

For X = 0 To lstNova.ListCount - 1
        rsPla.AddNew
        rsPla.Fields("pla_pla") = lstNova.List(X)
        rsPla.Fields("ent_pla") = Format(Date, "dd/mm/yyyy")

       rsPla.Fields("ent_nome") = txtNome.text

       rsPla.Fields("ent_ende") = txtendereco.text

       ' e assim por diante ..........
    Next X

Alexandre não ela isto, mais mesmo assim obrigado, ja esta resolvido. e que

tinha um comando que não tinha visto
lstnova.Clear

antes de salvar, rsrsrsrs

ok edson, encerre o topico por favor valew