A ver si entendi, si la BD no tiene registros y queres llenar un textbox con un campo de una tabla te da error. Si mal no recuerdo es el error
3021.
Eso lo podes solucionar asi:
Código:
If (Not recordset.BOF) AND (Not recordset.EOF) Then
Text1 = recordset("campo1")
Else
Msgbox "La tabla no contiene registros"
End If
Espero te sirva

Saludos