Ayuda con Datagrid [VB6]

[Liy0]

Hola, buenos días.

Antes de nada presentarme en esta gran comunidad y decir que me ha sacado de un apuro alguna que otra vez xD. Intentaré colaborar en lo que me sea posible.

Tengo un form con un datagrid conectado con un elmento adodc, para establecer una conexión con una BD SQL Server.

Todo me funciona, unicamente busco que al cargar el form no me aparezca ningun dato (el datagrid en blanco), ya que tengo un textbox (que lee un código de barras) que le indico que me muestre lo que busco, es decir que solo quiero que me muestre los datos en el datagrid al rellenar el textbox.

En el load del form, no le digo que me haga la consulta

Código:

Private Sub Form_Load()
    AdodcArticulosAlb.ConnectionString = strConexionDB
    AdodcArticulosAlb.username = cstCliente.strUsername
    AdodcArticulosAlb.Password = cstCliente.strPassword
End Sub

Y este el textbox, donde me hace la consulta:

Código:

Private Sub Text1_Change()
AdodcArticulosAlb.RecordSource = "select IDARTICULO,DESCRIPCION,ESF,CIL,DIAM,CANTIDAD from TBLARTICULOSALBARAN where IDALBARAN='" & Text1.Text & "'"
AdodcArticulosAlb.Refresh
End Sub

He probado a dejar en blanco en las propiedades del control adodc el RecordSource, ya que si relleno el RecordSource me carga el datagrid al arrancar el form:


Pero al arrancar el form me da el siguiente error y seguidamente aparece el datagrid vacio, pero me gustaría controlar ese error:


Ilustro con el form:


Gracias.