Hola JuanFran!
Aquí te paso un código que he desarrollado donde el obejtivo es el recuperar los precios de un articulo, los precios se obtienen a partir de
una Consulta parametrizada donde el único parametro es el Código del Articulo buscado.
Lo he hecho de la siguiente manera en un Form vacio he colocado 3
TextBox poniendo
en cada uno de ellos el DataField correspondiente a CodigoArticulo,
Precio1,Precio2 , tambien
he añadido un Boton (CommandButton), para comprovar que podía pasar un
parametro desde
una Variable o el contenido de un TextBox. Y por ultimo he desarrollado el
siguiente código que
abre conexiones, comandos y recordsets para la busqueda del articulo.
´// ------------------------
Option Explicit
Dim cnn As ADODB.Connection
Dim com As ADODB.Command
Dim rst As ADODB.Recordset
Dim Parametro As String
Private Sub Command1_Click()
Parametro = "044CRM16" ´// El valor en vez de ser fijo podria ser el contenido de una
´// variable o un Text que tu escribas
Set rst = com.Execute(, Parametro) ´// Tambien le puedo mandar el parametro desde
´//otro evento
Set Text1.DataSource = rst
Set Text2.DataSource = rst
Set Text3.DataSource = rst
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set com = New ADODB.Command
Set rst = New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ProgInfo\InfoConta5