Memoria Insuficiente?

Hola como estan? , tengo una duda que si bien he visto muchas variantes en Google, me dejo desconecertado y no entiendo que pasa.

Tengo un formulario MDI, el cual le asigno uno de los 3 secundarios, porque solo en ese me da el error:

"Memoria insuficiente '7'"

Lo da a veces, no siempre.

Comparto con ustedes el codigo que llevo hasta ahora en el formulario secundario problematico:

Código:

Private Sub Command1_Click()
Dim i As Integer
Call ConectaBase
''Realizamos la consulta
Call Consulta("Seleccion")
For i = 1 To 10
   While Not Rss.EOF
        MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
        MSFlexGrid1.TextMatrix(i, 0) = Rss.Fields("Nombre")
        MSFlexGrid1.TextMatrix(i, 1) = Rss.Fields("Direccion")
        MSFlexGrid1.TextMatrix(i, 2) = Rss.Fields("Administrador")
        MSFlexGrid1.TextMatrix(i, 3) = Rss.Fields("CelAdmin")
        MSFlexGrid1.TextMatrix(i, 4) = Rss.Fields("TelefonoSucursal")
        MSFlexGrid1.TextMatrix(i, 5) = Rss.Fields("Barrio")
        MSFlexGrid1.TextMatrix(i, 6) = Rss.Fields("HorarioEspecial")
        MSFlexGrid1.TextMatrix(i, 7) = Rss.Fields("HorarioEnt")
        MSFlexGrid1.TextMatrix(i, 8) = Rss.Fields("HorarioSal")
        MSFlexGrid1.TextMatrix(i, 9) = Rss.Fields("Comentarios")
        i = i + 1
        Rss.MoveNext
  Wend
Next i
Sub CierraConexion()
Cnn.Close
End Sub
Sub ConectaBase() 'conecta a la base de datos
'realizar sub que detecte si la conexion esta abierta
'si lo esta, cerrarla
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
Cnn.CursorLocation = adUseClient
Cnn.Open
End Sub

Private Sub Form_Load()
MSFlexGrid1.TextMatrix(0, 0) = "devfreg5555"
MSFlexGrid1.TextMatrix(0, 1) = "444444r"
MSFlexGrid1.TextMatrix(0, 2) = "efw"
MSFlexGrid1.TextMatrix(0, 3) = "wlkmdk3mdm3"
MSFlexGrid1.TextMatrix(0, 4) = "ewkmfmweo"
MSFlexGrid1.TextMatrix(0, 5) = "boboesponja"
MSFlexGrid1.TextMatrix(0, 6) = "martin liguera"
MSFlexGrid1.TextMatrix(0, 7) = "papa juan pablo"
MSFlexGrid1.TextMatrix(0, 8) = "efewf"
MSFlexGrid1.TextMatrix(0, 9) = "xD"
MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.ColWidth(1) = 1700
MSFlexGrid1.ColWidth(2) = 1800
MSFlexGrid1.ColWidth(3) = 1400
MSFlexGrid1.ColWidth(4) = 800
MSFlexGrid1.ColWidth(5) = 0
MSFlexGrid1.ColWidth(6) = 1510
End Sub

Abro este form con la instruccion .show

Mi pc es un Phenom x 6, 4 G de RAM windows xp SP 3.

Disco de 1 t.

Por qué me da el error? llene la memoria? o que onda?

Uso en todo el proyecto controles estandar, el unico externo es el MsFlexGrid

Gracias, Saludos.