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

en qué línea te sale el error "CANNOT INITIALIZE DATA BINDINGS"????