Si hablas de VBA, es decir, todo desde le propio access
Código:
Private Sub InsertarAlbaran_Click()
Dim pedido As Integer
Dim cliente As Integer
Dim direccion As String
pedido = Me.CampoPedido
cliente = Me.CampoClientes
direccion = Me.CampoDireccion
docmd.RunSQL "INSERT INTO albaranes ( Cliente, Pedido, Direccion ) " & _
"SELECT " & Me.CampoClientes & " as Cliente, " & _
Me.CampoPedido & " as Pedido, " & _
"'" & Me.CampoDireccion & "' as direccion;"
End Sub
Como ves puedes no crear las variables y leer directamente el contenido del campo del formulario....
Quim