Dim TablaBuscar As New DataTable 'Creo una nueva tabla ' Dim ValorCampo As String Try 'Sirve para validar el llenado de los datos SqlDataAdapter.Fill(TablaBuscar) 'El adapter llenar la tabla Dim row As DataRow = TablaBuscar.Rows(0) 'De la tabla obtengo el único registro (fila) Dim value As Object = row.Item("unico_campo") 'Pongo el nombre del único campo ValorCampo = Trim(CStr(value)) 'Transformo el valor del campo en texto Catch expSQL As SqlException 'Si hay algún error, saltará hacia esta expresión MsgBox(expSQL.ToString, MsgBoxStyle.OkOnly, "SQL Exception") End Try
Ya con el dato ValorCampo, puedo hacer uso de él donde lo desee.