Visual Basic para Aplicaciones - Pasar parametros a un Recordset (URGENTE!!!!)

Necesito pasar como parametros un texto que esta contenido en un combobox como parametro a un recordset. Es decir, mi pregunta apunta a lo siguiente tengo una variable definida como String llamada DATO. Los combobox contienen el nombre de la columna referida a la Base de Datos, por ejemplo, TIPO DE MONEDA. La parte del codigo que tengo problemas es la siguiente:

RST1: Es el Recordset para acceder a la Base de Datos

CAMPO1.TEXT : Es un combobox que contiene el nombre de los campos de la base de datos seleccionados por el usuario

archivo = "c:\Facturacion" & "Cotiz" & Format(Date, "hhmmss") & ".txt"
Open archivo For Output As #1
Do Until rst1.EOF = True
If rst1.EOF = True Then
rst1.MoveFirst
Exit Do
End If
If campo1.Text <> "" then
dato = "rst1!" & campo1.text
End If
rst1.MoveNext
If rst1.EOF = True Then
rst1.MoveFirst
Exit Do
End If
Loop
If rst1.EOF = True Then
rst1.MoveFirst
End If
Close #1

El problema esta que cuando yo quiero grabar en el archivo me graba rst1!tipomoneda, en lugar de recorrer la base de datos y grabarme el contenido del campo TIPO DE MONEDA

Prueba con
dato = rst1(campo1.text )