dataset

[Pinta]

te adjunto una parte del codigo:

Dim LongD As Double
Dim LongH As Double
Dim CantD As Double
Dim CantH As Double
Dim NFilas As Integer
ParametrosEscala(Me.ComboBox3.Text, Me.TextBox1.Text, Me.TextBox2.Text)
LongD = Module1.LongD
LongH = Module1.LongH
CantD = Module1.CantD
CantH = Module1.CantH
Dim Paso As Integer
Dim Resultado As String
'---------------------------------------------
MessageBox.Show(CantD & " - " & LongD & Chr(13) & CantH & " - " & LongH)
NFilas = Me.DataGrid1.VisibleRowCount

Dim oleComm As New OleDb.OleDbCommand
For Paso = 0 To NFilas - 2
MessageBox.Show(Me.DataGrid1.Item(Paso, 2).ToString())
Me.OleDbDataAdapter5.SelectCommand.CommandText = "SELECT DISTINCT TDC_GrupoComponente FROM DesgloseConjuntos WHERE TDC_DescripComponente = " & "'" & Me.DataGrid1.Item(Paso, 2).ToString() & "'"

Resultado = oleComm.ExecuteScalar
MessageBox.Show(Resultado)
Next