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

Deberias tratar de ejecutar esa sentencia paso a paso (F8) y corroborar los valores que se van dando en cada variable, es como que una variable se sale del rango, como si quisieras abrir mas registros de los que tiene la tabla