SALVAR E EXCLUIR DADOS DE UM LISTBOX

Public idObra As Integer [ô]Essa variável é para capturar o código da obra que você vai lançar de preferencia em um modulo

Public Sub Verifica()
Dim SQL As String

SQL = [Ô]SELECT * FROM Remessa[Ô]
Rst.Open SQL, SuaConexao, 2, 3

If Rst.EOF Then
    if MsgBox([Ô]Obra não cadastrada, deseja cadastrar agora?[Ô], vbQuestion + vbYesNo, [Ô]Confirmação[Ô]) = vbYes then
        rst.close: Set rst = nothing
        SQL = [Ô]INSERT INTO (Coluna1,Coluna2,Coluna3,...)VALUES(Faz as referencias as QUANT do FORM Remessa)[Ô]
        rst.Open SQL, SuaConexão, 2, 3
    Else
        rst.Close: Set rst = nothing
    End If
Else
    SQL = [Ô]UPDATE Remessa SET Coluna1=[ô][Ô] & campo1doFORMremessa & [Ô][ô],Coluna2=... WHERE Id_Obra=[Ô] & idObra
    rst.Open SQL, SuaConexao, 2, 3
End If

If Rst.State <> 0 Then Rst.Close: Set Rst = Nothing
End Sub

Citação:

:
Parceiro segue anexo o código que postei acima

para fazer o salvamento utilize os TEXTBOX que esta gravado o ID da Obra chamando-o na clausula WHERE
esse TEXTBOX estão atras das LIST cada um para o seu


Espero que isso refresque sua ideia e possa aprimorar o sistema

lembrando que fiz um projeto bem simples só para entender utilizo INNER JOIN para referenciar duas tabelas

Qualquer duvida poste ai