GUARDAR DATOS DE TEXTBOX Y A LA VEZ DATOS DE LISTBOX A LA BASE DE DATOS ACCESS DESDE UN FORMULARIO DE EXCEL

[sccoa]

SOY NUEVO EN ESTE GRUPO, POR FAVOR ALGUIEN ME PODRIA AYUDAR CON LOS CODIGOS;

NO PUEDO GUARDAR EN UN FORMULARIO DATOS DE UN TEXTBOX Y LA VEZ DATOS DEL LISTBOX A LA BASE DE DATOS ACCESS DESDE UN FORMULARIO MACRO EXCEL

ESTE CODIGO ESTOY UTILIZANDO: ME GRABA ESTOS DATOS, LO QUE NO SE QUE CODIGOS INGRESAR PARA GUARDAR LOS DATOS DE UN LISTBOX TAMBIEN. ALGUIEN ME PUEDA AYUDAR POR FAVOR 

Sub GrabarReg1()

Dim conn As ADODB.Connection
Dim MiConexion
Dim Rs As ADODB.Recordset
Dim MiBase As String

If frmFORMULARIO.ComboBox5 = "" Then
MsgBox "Campo Vacio, Ingrese una ORDEN", vbExclamation, "Mensaje"
'frmFORMULARIO.ComboBox5.BackColor = &HFF& 'SOMBREA COLOR ROJO
frmFORMULARIO.ComboBox5.SetFocus

Else
If frmFORMULARIO.TextBoxDIA = "" Then
MsgBox "Campo Vacio, Ingrese una FECHA", vbExclamation, "Mensaje"
'frmFORMULARIO.TextBoxDIA.BackColor = &HFF& 'SOMBREA COLOR ROJO
frmFORMULARIO.TextBoxDIA.SetFocus

Else

MiBase = "BASEFINAL.accdb"

Set conn = New ADODB.Connection
MiConexion = Application.ThisWorkbook.Path & Application.PathSeparator & MiBase

With conn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Open MiConexion
End With

Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseServer
Rs.Open Source:="REGISTRO1", _
    ActiveConnection:=conn, _
    CursorType:=adOpenDynamic, _
    LockType:=adLockOptimistic, _
    Options:=adCmdTable

'Cargar los datos a Tabla de Access
With Rs
    .AddNew
    .Fields("NUMORDEN") = frmFORMULARIO.TextNumero.Value
    .Fields("TIPOORDEN") = frmFORMULARIO.ComboBox5.Value
    .Fields("CODIGOEESS") = frmFORMULARIO.TextBoxCodigoEESS.Value
    .Fields("EESS") = frmFORMULARIO.TextBoxEESS.Value
    .Fields("RUC") = frmFORMULARIO.TextBoxRUC.Value
    .Fields("RAZONSOCIAL") = frmFORMULARIO.TextBoxRAZONSOCIAL.Value
    .Fields("DIRECCION") = frmFORMULARIO.TextBoxDIRECCION.Value
    .Fields("FECHAORDEN") = frmFORMULARIO.TextBoxDIA.Value & "/" & frmFORMULARIO.TextBoxMES.Value & "/" & frmFORMULARIO.TextBoxAÑO.Value
    .Fields("FUENTE") = frmFORMULARIO.TextboxFINANCIAMIENTO.Value
    .Fields("SUBFUENTE") = frmFORMULARIO.TextboxSUBFINANCIAMIENTO.Value

'::::::::::::::::::::::::::EN ESTA PARTE QUISIERA INGRESAR CODIGO PARA EL LISTBOX.....AYUDEME POR FAVOR:::::::::::::::::::::::::::::::::::

 

End With

Rs.Update

'Cerrar la conexión
Rs.Close
conn.Close
Set Rs = Nothing
Set conn = Nothing

MsgBox "Registro exitosa", vbInformation, "ECOLOGIS"
'Unload frm4NuevoPROVEEDOR

End If
End If
End Sub