Visual Basic - NO PUEDO MAS

-Tengo un pequeño gran problema.
-En un form tengo un datagrid con una lista de libros con idlibro, titulo etc. y en otro form un textbox y un label.
el asunto es:yo digito un codigo en el textbox, luego le doy aceptar a un boton y aparece el titulo de libro de la lista del otro formulario(datagrid).=¿como hago para pasar la informacion del datagrid que nececito al label al digitar el codigo?
POR FABOR AYUDAME

No entiendo de dónde a donde quieres pasar información.

Pero para poner en TextBox o Labels los datos que están en un determinado renglón del datagrid es...:

Text1.Text = DataGrid1.Columns(0).Text

También funciona asi...

Text1.Text = DataGrid1.Columns(0).Value

No se cual sea la diferencia. Dependiendo el número de columnas que se muestren en tu datagrid será el número máximo que puedas especificar en .Columns (...), siempre menos 1, ya que se inicia a partir de 0. En el caso del renglón, pues en donde esté el apuntador o cursor, ese será el renglón que eliga.

Al hacer esto puedes pones en donde quieras todos los campos de un registro.

Espero esto te sirva, si no amplía un poco más tu consulta para poder entender mejor. Saludos

Ok, para poner el valor de un campo en una tabla ( o de una celda del datagrid ) puede hacer.

Label1.Caption = DataGrid1.Columns(0).Text

Suponiendo que ya encontró el código que le pusiste y que en la primer columna está el valor que quieras que ponga en el label.

Para ser más específico pongo este ejemplo..:

Dim Rs As ADODB.RecordSet
Dim Cn as ADODB.Connection

Private Sub Form_Load ()
'....
'omito lo de establecer la conexion Cn
'....
Set Rs = New ADODB.RecordSet
SQL = "SELECT codigo, descripcion, autor, edicion, ubicacion FROM libros"
Rs.Open SQL, Cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = Rs
'..........
'Omito lo referente a la configuración del datagrid
' como encabezados, columnas disponibles, permitir grabar, entre otros
'............
End Sub

Private Sub Command1_Click ()
' Suponiendo que este el botón que establece buscar
Cadena = "codigo = " & val(Text1.Text)
' suponiendo que el campo CODIGO es de tipo numérico
Rs.MoveFirst
Rs.Find Cadena
If Err.Number Or Rs.BOF Or Rs.EOF Then
'No se encontró
Else
'Se se encontró, pon los valores de los campos donde quieras ponerlos
Label1.Caption = Rs("codigo")
' Al estar relacionado o asignado el DataGrid1 con el RecordSet Rs, a donde
' muevas el puntero de Rs se moverá el puntero del DataGrid
' tambien puede pobrar poner
Label1.Caption = DataGrid1.Columns(0).Text
' según yo, será el mismo valor
Endif
End Sub

Espero esto te sirva, para cualquier duda o aclararión, coméntalo, saludos.