Visual Basic - datagrid

Buenas les queria preguntar resulta que tengo un datagrid al cual le intento cargar registros desde vectores y todo anda bien, le tema es que cuando le agrago mas de 100 registros se tilda es decir se queda un rato haciendolo pero despues de cuelga y tengo que finalizar el rpograma... tiene el datagrid algun tipo de limite ??? o que estoy haciendo mal... graicas espero su respuesta

Buenas no podemos saber lo que estas haciendo mal... porque no pones el codigo.

pero... cargar en un datagrid registros desde vectores?

Si el datagrid tiene algún límite? Eso depende de los recursos del sistema, si te sirve te puedo decir que cargandolo con un recordset de 17 campos (columnas) y 69.000 registros (filas) a mi al menos no me da problemas.

ACA TE MANDO EL CODIGO, USO VECTORES PORQUE TENGO TRES CAPAZ EN LA APLICACION ENTONCES ES LA UNICA MANERA QUE SE ME OCURRIO DE TRAER LOS DATOS !!!!
LOS (OBJCONTROL.) SON DATOS DE UNA CAPA INFERIOR QUE LSO PONGO EN VECTORES

MUCHAS GRACIAS

Dim cant As Integer
Dim i As Integer
Set objcontrol = New FILIALRN
objcontrol.INICIALIZAR_DATO
objcontrol.s_rcantidad
If objcontrol.s_rcontrol = "no entrar" Then
mensaje = "No hay socios cargados"
If MsgBox(mensaje, vbOKOnly + vbInformation, "Ningun socio") = vbOK Then
End If

Exit Sub
End If
Set rs = New ADODB.Recordset
' Define tres campos de tipo string
With rs.Fields
.Append "Codigo", adBSTR, 5
.Append "Sub Codigo", adBSTR, 5
.Append "Nombre", adBSTR, 10
.Append "Localidad", adBSTR, 25
.Append "Direccion", adBSTR, 40
End With
' Abre el recordset desconectado
rs.Open
' Agrega cinco registros

cant = objcontrol.s_rvcant
For i = 1 To cant
objcontrol.s_rvcant = i


objcontrol.nomloc
objcontrol.p_rnombre = objcontrol.s_rnombrelocalidad

rs.AddNew _
Array("Codigo", "Sub Codigo", "Nombre", "Direccion", "Localidad"), _
Array(objcontrol.s_rvcodigo, objcontrol.s_rvsubcodigo, objcontrol.s_vrnombre, objcontrol.s_vrdireccion, objcontrol.p_rnombre)

Next
Set DataGrid1.DataSource = rs
' establece un ancho a las columnas
With DataGrid1
.Columns(0).Width = 250
.Columns(1).Width = 2500
.Columns(2).Width = 3500
.Columns(3).Width = 5500
End With
' se mueve al primer registro
rs.MoveFirst
End Sub

Private Sub Text1_Change()
If Text1.Text = "" Then
ver1
Exit Sub
End If

If Text1.Text = " " Then
mensaje = "El caractar a buscar no debe comenzar con un espacio"
If MsgBox(mensaje, vbOKOnly + vbInformation, "Caracter no valido") = vbOK Then
End If
Text1.SetFocus
ver1
Exit Sub
End If

If Text1 <> "" Then
rs.Filter = "Nombre" & " LIKE '*" + Text1.Text + "*'"
Set DataGrid1.DataSource = rs
With DataGrid1
.Columns(0).Width = 250
.Columns(1).Width = 3000
.Columns(2).Width = 3160
.Columns(3).Width = 1200
.Columns(4).Width = 1800
End With

End If