Ensamble de Laptop toshiba satellite L305d

http://www.irisvista.com/tech/laptops/Toshiba-Satellite-L305-L305D/remove-screen-replace-video-cable-2.htm

Enviar el valor de la celda seleccionada de un DataGridView a un Textbox

Dim Variable As String = DataGridView1.Item(1, DataGridView1.CurrentRow.Index).Value

'Es la columna de la celda del valor a enviar

Current.index es la columna seleccionada.

Llenar un DataGridView Visual 2008 Express

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\user.accdb"

Dim ocom As New OleDb.OleDbConnection(connectionString)

Dim ds As New DataSet

Dim Oc As New OleDbCommand

Dim da As New OleDbDataAdapter

da.SelectCommand = Oc

da.SelectCommand.Connection = ocom

Oc.CommandText = "SELECT * FROM productos WHERE nombre LIKE " & "'" & txtproducto.Text & "%" & "'"

da.Fill(ds, "Productos")

DataGridView1.DataSource = ds.Tables("Productos")

Conexión de access 2007 con Visual 2008 Express edition

'Importamos librerías
Imports System.Data.OleDb
Public Class Form1


Private Sub cmdconectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconectar.Click
On Error GoTo errconexion

Dim cadenadeconexion As New OleDbConnection
'OleDbcommand: Representa una instrucción SQL o un procedimiento almacenado que se va a ejecutar en un origen de datos.
Dim comandosql As New OleDbCommand
Dim lecturafilas As OleDbDataReader
cadenadeconexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source = _ C:\Documents and Settings\pl_14\Mis documentos\user.accdb" _
' oconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; data source =C:\Documents _ and Settings\pl_14\Mis documentos\user.mdb"
cadenadeconexion.Open()
MsgBox("Conectado")
comandosql.CommandText = "Select * from usuario where login =" & "'" & txtuser.Text & "'" & _ "and password =" & "'" & txtpassword.Text & "'"
comandosql.Connection = cadenadeconexion
lecturafilas = comandosql.ExecuteReader()
If (lecturafilas.HasRows) Then
MsgBox("Bienvenido al sistema", MsgBoxStyle.Exclamation, "Sistema de recuperación de alumnos")
Form2.Show()
Me.Hide()
Else
MsgBox("Error de contraseña")

End If
Exit Sub
errconexion:
MsgBox("Error:" + Err.Description)
End Sub