Visual Basic - Pasar el valor de una Consulta a un txt

Hola.

La verdad es he tratado de asignar un valor de una consulta sql a txt y no he podido, si pueden ayudarme con ese tema se lo agradecería.

tengo la consulta

consulta="select sum(valor)as subtotal from articulo where cod_factura=ccw1;"

me arroja la suma como subtotal xxxxx
el tema es que ese valor xxxx quiero asignarlo a un txt.

desde ya muchas gracias.

Dim Bdd as database
Dim Mireg as Recordset
Se abre la Bdd
Set Mireg = Bdd.Openrecordset("select sum(valor) as subtotal from articulo where cod_factura=ccw1") 'Sobra el punto y coma
text1=Mireg!Subtotal