Visual Basic.NET - variable = a resultado de query

Saludos, soy novato en el .net y necesito igualar una variable integer al resultado de una consulta a una tabla que me va a devolver un numero pero como se hace esto????

Ya tengo la coneccion a una bd en sql con el conectionstring y eso

Dim a as integer
Dim strSQL as string

strSQL = "select t.costoxdia from tipoauto t, vehiculo v where v.idvehiculo = 45 and t.idtipo = v.idtipo"

ESTE SELCT ME DEVUELBE POR DECIR UN 1200 y lo necesito poner en la variable a, como se hace?????

Con un datareader

Te paso el código.
Esta para mysql si lo quieres para sql server quítale el my (Ejm: MySqlDataAdapter pasa a ser SqlDataAdapter)


Public Sub ObtPrmSql(ByVal SqlPrmSql As String) as ResultadSql

Dim I As Integer
Dim oDataAdapter As MySqlDataAdapter
Dim oConexion As New MySqlConnection
Try
oConexion.ConnectionString = Conexion
Dim Cmd As New MySqlCommand(SqlPrmSql, oConexion)
Dim Rd As MySqlDataReader
'SqlCbz = SqlCbz & NumAlbaran
oDataAdapter = New MySqlDataAdapter(SqlPrmSql, oConexion)

oConexion.Open()

Rd = Cmd.ExecuteReader() ' obtener DataReader

If Rd.Read() Then
If Not IsDBNull(Rd(0)) Then ResultadSql = Trim(Rd(0))
Else
ResultadSql = ""
End If

Catch oExcep As MySqlException
MsgBox("Error al conectar con datos" & _
ControlChars.CrLf & _
oExcep.Message & ControlChars.CrLf & _
oExcep.Source())
If oConexion.State = ConnectionState.Open Then
oConexion.Close()
End If
End Try

End Sub

Un saludo