ayudar con visual basic 6.0

[Daviel]

Te recomiendo que utilices una grilla (MSFlexGrid, FlexGrid, vsFlexArray), para el siguiente ejemplo necesitas lo siguiente:
-Un Form1 llamado Form1, un vsFlexArray llamado vsFlexArray1, dos TextBox llamados Text1 y Text2 respectivamente, tres CommondButton llamados Commond1 (Agregar), Commond2 (Cerrar) y Commond3 (Cargar).
-Crea un módulo y pon el siguiente código:
Sub Rotulo(vsFxAy As vsFlexArray)
With vsFxAy
.Cols = 3
.RowHeight(0) = 450
.ColWidth(0) = 280
.TextArray(1) = "ID"
.ColWidth(1) = 600
.TextArray(2) = "Nombre"
.ColWidth(2) = 3000
End With
End Sub
Sub CargarDatos(vsFxAy As vsFlexArray)
Dim BDCn As New ADODB.Connection
Dim BDRd As New ADODB.Recordset
Dim Tabla As String
Dim Ruta As String
Ruta = App.Path & "\" & "db1.mdb"
BDCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False"
Tabla = "Nombres"
BDRd.Open Tabla, BDCn, adOpenStatic, adLockReadOnly
With vsFxAy
vsFxAy.Rows = 2
Do While Not BDRd.EOF
.TextMatrix(vsFxAy.Rows - 1, 1) = BDRd.Fields(0).Value
.TextMatrix(vsFxAy.Rows - 1, 2) = BDRd.Fields(1).Value
vsFxAy.Rows = vsFxAy.Rows + 1
BDRd.MoveNext
Loop
.Rows = .Rows - 1
End With
BDRd.Close
BDCn.Close
End Sub
Sub AgregarDatos(ID As String, Nombre As String)
Dim BDCn As New ADODB.Connection
Dim BDRd As New ADODB.Recordset
Dim Tabla As String
Dim Ruta As String
Dim Cursor As String
Dim Cerrojo As String
Cursor = 1
Cerrojo = 3
Ruta = App.Path & "\" & "db1.mdb"
BDCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False"
Tabla = "Nombres"
BDRd.Open Tabla, BDCn, Cursor, Cerrojo
If Not BDRd.BOF Then
BDRd.AddNew
BDRd("ID") = ID
BDRd("Nombre") = Nombre
BDRd.Update
End If
BDRd.Close
BDCn.Close
End Sub
-Luego en el formulario pega estas lineas de código:
Private Sub Form_Load()
Call Rotulo(vsFlexArray1)
End Sub
Private Sub Command1_Click()
Call AgregarDatos(Text1.Text, Text2.Text)
Call CargarDatos(vsFlexArray1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Call CargarDatos(vsFlexArray1)
End Sub
-y listo, ahi tienes un ejemplo sencillo de como agregar y visualizar datos desde una BD de Access.

P.D. Es una lástima que en este foro no se puedan adjuntar archivos, de esa manera podriamos aprender bastante de todos los foristas que hay en esta buena página.