Visual Basic - ERROR EN TIEMPO DE EJECUCION

HOLA ME AYUDARON MUCHA LAS VECES ANTERIORES AHORA TENGO UN PROBLEMA Q NECESITO SOLUCIONAR URGENTE

CUANDO QUIERO ABRIR UN FORMULARIO ME SALE UN MSJE DE ERROR Q DICE:

CANNOT INITIALIZE DATA BINDINGS Y OTRO SEGUIDO Q DICE:
ERRO '9' EN TIEMPO DE EJECUCION SUBSCRIPT OUT OF RANGE

NO SE Q HACER SI ALGUIEN ME PUEDE AYUDAR ..POR LO Q ENTIENDO ES ALGO COMO Q SI EL INDICE VOLARA PORQ NO HAY DATOS PERO LA TABLA SI TIENE DATOS ESTE ES EL LLENADO ...
GRACIAS

Private Sub LLENA_GRID()
Set PV = New ADODB.Recordset
PV.CursorLocation = adUseClient
PV.Open "SELECT * FROM TIENDA", cn, adOpenDynamic, adLockOptimistic
If PV.RecordCount > 0 Then
Set DT1.DataSource = PV
DT1.Columns(0).Width = 1050
DT1.Columns(1).Width = 1050
DT1.Columns(3).Width = 5000
End If
End Sub

Saludos:

Parece ser que intentas usar mas columnas de las que tienes disponibles. Lo que el mensaje de error trata de decirte es que el subíndice (Subsript) al que haces referencia no está disponible.

Trata de ampliar el número de columnas del control que estás usando o revisa si el número de subíndice es el correcto.