DATAGRID

El DataGrid es un control de Visual Basic en la que puedes insertar los campos de una tabla. 
El nombre por defecto es Datagrid1 y allí te va un pedazo de có 'Activar DataGrid 
DataGrid1.Visible = True 

If (txtPNombre.Text <> "" And txtSNombre.Text <> "" And txtPApellido.Text <> "" And txtSApellido <> "") Then 
Adodc1.RecordSource = "SELECT IDENTIDAD,NOMBRE01,NOMBRE02,APELLIDO01,A... FROM DVT WHERE NOMBRE01='" & txtPNombre.Text & "' AND NOMBRE02= '" & txtSNombre.Text & "' AND APELLIDO01='" & txtPApellido & "' AND APELLIDO02= '" & txtSApellido.Text & "' " 
Else 
If (txtPNombre.Text <> "" And txtSNombre.Text <> "" And txtPApellido.Text <> "" And txtSApellido = "") Then
Adodc1.RecordSource = "SELECT IDENTIDAD,NOMBRE01,NOMBRE02,APELLIDO01,A... FROM DVT WHERE NOMBRE01='" & txtPNombre.Text & "' AND NOMBRE02= '" & txtSNombre.Text & "' AND APELLIDO01='" & txtPApellido & "' " 
Else 
If (txtPNombre.Text <> "" And txtSNombre.Text = "" And txtPApellido.Text <> "" And txtSApellido <> "") Then
Adodc1.RecordSource = "SELECT IDENTIDAD,NOMBRE01,NOMBRE02,APELLIDO01,A... FROM DVT WHERE NOMBRE01='" & txtPNombre.Text & "' AND APELLIDO01='" & txtPApellido & "' AND APELLIDO02= '" & txtSApellido.Text & "' " 
Else 
Adodc1.RecordSource = "SELECT IDENTIDAD,NOMBRE01,NOMBRE02,APELLIDO01,A... FROM DVT WHERE NOMBRE01='" & txtPNombre.Text & "' AND APELLIDO01='" & txtPApellido.Text & "' " 
End If 
End If 
End If 
Adodc1.Refresh 
With Adodc1.Recordset 
If Not .EOF Then 
DataGrid1.ClearFields 
Set DataGrid1.DataSource = Adodc1 
Else 
MsgBox "No se encuentra la información de esa persona", vbCritical, "Resultados" 
'Limpiar la pantalla 
txtPNombre.Text = "" 
txtSNombre.Text = "" 
txtPApellido.Text = "" 
txtSApellido.Text = "" 
DataGrid1.ClearFields 
DataGrid1.Visible = False 

txtPNombre.Enabled = True 
txtSNombre.Enabled = True 
txtPApellido.Enabled = True 
txtSApellido.Enabled = True 
cmdBuscar.Enabled = False 
txtPNombre.SetFocus 
cmdLimpiar.Enabled = False 
End If 
End With 
'Activar botón de limpiar 
cmdLimpiar.Enabled = True 
cmdBuscar.Enabled = False 
digo, talvez te sirva.

Archivos en MEGA

Mis Archivos subidos a MEGA

Crack ZeNiX 2050

https://mega.co.nz/#!5Z0CDZSI!Ea5Lxm-SED0rb_u5MJ1yQkvovwFDBdGnbFlNTGiFqdE

USB - AV

https://mega.co.nz/#!cU8EgarA!Qwq5kQdEdpujVRa15L8Yk3ZlP558h5tykkUSauAxeH4

Win Rar

https://mega.co.nz/#!oUlSFTaC!SFh6sgE9-22vDq0YLNpmknC6CXwuTNwbtMJlwTLPYG0

Repara Ficheros

https://mega.co.nz/#!VZ11wAQZ!YESmgwaiyO7ZYEZC3DedNw6K89NxORK95-3aq-ufCNs

Navegadores

https://mega.co.nz/#!lVdgxIzC!UbkngF7KTepDU2i6qPX2VD5kKXwzJPEZHdxLF-spqp4

Activadores W7

https://mega.co.nz/#!lEkGwJYL!FfRviVV_ZpLTWninEzEVDHl6oe46BCDPiufb_RQ5QH4

Paquete Adobe

https://mega.co.nz/#!4FsnXbrC!QxqX0EbG1AtDW4GndyNrEm8xTDlQYIkPMEkJx3LC5vI

Mantenimiento

https://mega.co.nz/#!RBFHkD4Y!V4FtuDT7IHVNtOXzdT2NiQITQGR_EMXmchMm5X9wK6w

Photoshop

https://mega.co.nz/#!VENX1LKA!P4bYEQccGlHmkcZynuSizxuTEv0ti0KDgUA4-fveFhs

Juegos

https://mega.co.nz/#!xc8hmaCI!CavNiGuXHLd9SS63iXohdRgy43pO0DchBRm5DeccjIE

Avast Premier

https://mega.co.nz/#!IZt3BZTS!Q4oa8DbYbGtfL8skq74bsl7iMVtJKWdhDYOBGZ93b7s

Avast Free

https://mega.co.nz/#!9EFBRSaS!LuY4ekBzKgQgJoTeJJDJLG6liKVOuzNDDXeOJjq9s1w

Recuperación de archivos

https://mega.co.nz/#!Fc9hzYaI!bFIEsFpbKkHszVH0WdC2RySGGXcqEkYkpWix134HUyU

Nero

https://mega.co.nz/#!UMt0CRZQ!eebUCGv680duOotdhliDCB8cco4hgBhyFPNVqsGH8TI

Microsoft Office 2010

https://mega.co.nz/#!cQ8kVChK!Gw1snXndBQmm6qGQ_WAkuSeZFZ0WHtbV0kNNA5jncck

Malware bytes

https://mega.co.nz/#!4NslCaZI!UbF6nU-qWXzcjYzENIw1DVkgy1lkOJua-RbM6VWFLT4

Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtn3.SetFocus
End Sub

¿QUE SON LAS VARIABLES Public nTotales, nGastos As Double?

Las variables nTotales, nGastos tienen un ámbito global. Estas variables pueden ser utilizadas desde cualquier parte de la aplicación, sin importar el módulo en el que esté el procedimiento que accede a ella. No se pueden declarar variables Public en un procedimiento.

Variable Public

Especifica que uno o varios elementos de programación declarados no tienen ninguna restricción de acceso.


Si publica un componente o conjunto de componentes, como una biblioteca de clases, deseará que los elementos de programación sean accesibles para todos los códigos que interactúan con su ensamblado. Para otorgar este acceso ilimitado en un elemento, puede declararlo con Public.

El acceso público es el nivel normal para un elemento de programación cuando no necesita limitar su acceso. Tenga en cuenta que el nivel de acceso de un elemento declarado dentro de una interfaz, módulo, clase o estructura es de forma predeterminada Public si no lo declara de otra forma.
Reglas



Contexto de la declaración. Puede utilizar Public solamente en el nivel de módulo, interfaz o espacio de nombres. Esto significa que el contexto de la declaración para un elemento Public debe ser un archivo de código fuente, espacio de nombres, interfaz, módulo, clase o estructura y no puede ser un procedimiento.
Comportamiento



Nivel de acceso. Todos los códigos que pueden tener acceso a un módulo, clase o estructura pueden tener acceso a sus elementos Public.


Acceso predeterminado. Las variables locales dentro de un procedimiento tienen un valor predeterminado de acceso público y no puede utilizar ningún modificador de acceso en ellos.


Modificadores de acceso. Las palabras clave que especifican el nivel de acceso se llaman modificadores de acceso. Para consultar una comparación de los modificadores de acceso, vea Niveles de acceso en Visual Basic.

israel