Visual Basic - Asignar consulta SQL a un text

HOLA A TODOS

TENGO UNA CONSULTA SQL EL RESULTADO DE LA MISMA ES UN CAMPO Y QUISIERA PASARLO A UN TEXT BOX O A UNA VARIABLE, PERO NO LO HE PODIDO LOGRAR, LO HE CARGADO EN UN DATAGRID.

DE ESTA FORMA HAGO LA CONSULTA LA CONSULTA

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SIGD\bd.mdb;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "SELECT SUM(baticiones.volumen)FROM baticiones WHERE baticiones.fecha = (CDate('" & fecha_ent & "')) AND baticiones.cuba_alimen ='" & Text14 & "' AND baticiones.materia_prima ='" & Text15 & "'", db, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = adoPrimaryRS

EN VES DE CARGARLA AL DATA GRID LA QUIERO CARGAR EN LOS TEXT BOX

TAMBIEN HE INVETIGADO SOBRE ESTE CODIGO, QUISIERA QUE ME AYUDARAN CON LA PRIMERA LINEA FOR...
adoPrimaryRS CONTIENE LA CONSULTA SQL, LA CUAL LAS ESTA ASIGNANDO A LOS TEXT
'Enlaza los cuadros de texto con el proveedor de datos
For Each oText In Me.txtFields
Set oText = adoPrimaryRS
Next

TODA LA AYUDA QUE ME PUEDAN PROPORCIONAR SERA MUY VALIOSA PARA MI YA QUE APENAS ESTOY COMENZANDO A UTILZAR SQL.

GRACIAS A TODOS DE ANTEMANO

LARISA

Hola.
A ver, en la consulta SQL estás utilizando la función CDate(), que yo creo que es de VB, no de SQL. Así que te diría que la sustituyas por DateValue:
..baticiones.fecha = DateValue(' " & fecha_ent & " ')....
suponiendo que fecha_ent sea un campo de texto o un nombre de variable.

En cuanto al For, me da que no puede funcionar, por que estás asignando tipos distintos. Pero tampoco estoy seguro, así que mejor me callo.