textbox

[Hokin]

claro que si, puedes hacerlo asi

Option Explicit

Private db As Database
Private rs As Recordset
Private rs1 As Recordset

Dim sBuscar As String

Const sPathBase As String = "D:\PHP\bdMiscelanea97.mdb"
Const sPathBase2 As String = "D:\PHP\otra.mdb"

Set db = OpenDatabase(sPathBase)

sBuscar = "SELECT * FROM Articulos ORDER BY id"
Set rs = db.OpenRecordset(sBuscar, dbOpenSnapshot)

Set db = OpenDatabase(sPathBase2)
sBuscar = "SELECT * FROM Articulos ORDER BY id"
Set rs1 = db.OpenRecordset(sBuscar, dbOpenSnapshot)

With rs
.AddNew
.Fields("id") = Text1
.Fields("nombre_prod") = Text2
.Fields("familia") = Combo1
.Fields("proveedor") = Combo2
.Fields("fech_ult_compra") = Text5
.Fields("precio_compra") = Text3
.Update

End With

With rs1
.AddNew
.Fields("precio_venta") = Text4
.Fields("cantidad_compra") = Text6
.Fields("cantidad_vendida") = Text7
.Fields("marca") = Text8
.Fields("talla") = Text9
.Fields("quien") = Combo3
.Update
End With


Espero y te sirva