Visual Basic.NET - rescatar dato de consulta y asignarla a una variable

Buenas, posiblemente esta consulta ya este expuesta:

es sencillo pero como soy nuevo en VB me cuesta un poco, necesito rescatar un dato mediante una consulta sql y ese dato asociarlo a una variable... trabajo con sql server

Que tal, espero poder ayudarte ya que no se como trabajas tus consultas pero bueno es relativamente sencillo

te facilito el codigo prototipo para trabajar con conecciones odbc

Dim dstSQL As DataSet = New DataSet
dim strSQL as string

strSQL = "Sentencia SQL de normalmente SELECT]"
Using Connection As New Odbc.OdbcConnection(“provider=ODBC;DSN=[Nombre de la conexión ODBC];”)

Dim dadDatosConsultados As New Odbc.OdbcDataAdapter(strSQL, Connection)

Try
Connection.Open()
dadDatosConsultados.Fill(dstSQL)
Using reader As DataTableReader = dstSQL.CreateDataReader()
If reader.HasRows() Then
Do While reader.Read()
strExample = reader("[Campo de la base de datos]"))
Loop
End If
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Using
dstSQL.Clear()

por ejemplo que tuconsulta sea algo como SELECT IdCliente as Id FROM Clientes Where Cliente='Victor'
la consulta te devolvera el id que por ejemplo sea 1 en la columna Id
entonces para rescatar el valor de la columna en donde pone strExample =reader("Id")
y listo tendras el valor de id en tu variable strExample.

espero que te sirva amigo.
Un saludo

Claro que me sirve, mira disculpa mi ignorancia pero trato de modificarlo a lo que necesito es algo asi..

Try

Dim sql As String = "select id_tipo_insumo from tipo_insumo where nombre_tipo_insumo=" & combobox1.text.Text
Dim ds As New SqlDataAdapter(Sql, conexion)
Dim ad As New DataSet

ds.Fill(ad)

Catch ex As Exception

End Try


A este codigo como le asigno a una variable, supongamos que se llame valor, el dato que quiero rescatar?