Visual Basic - ¿Como hacer una consulta sql y utilizar los valore

Me gustaria saber como puedo hacer la consulta.
Tengo en la tabla de TiposProductos el codigo de los tipos de productos,
y sus precios para cada producto.En Productos Pedidos tengo el codigo de
cada producto que he encargado y la cantidad.
Me gustaria hacer el total del importe multiplicando la cantidad de cada
producto pedido con el precio de cada producto, para asi saber el precio
total de todos los productos pedidos.
¿Es correcto como lo he hecho?¿Que cambios me aconsejarias?

Dim curImporteTotal as currency

strCadena = "SELECT Cantidad,[Precio Compra] FROM ProductosPedidos INNER JOIN TiposProductos ON ProductosPedidos.[Codigo Producto]=TiposProductos.CodigoTipoProducto"

With adoConsulta
.RecordSource = strCadena
'.Recordset.Update
.Refresh
.Recordset.MoveFirst
End With

With adoProductosPedidos.Recordset
Do While Not (.EOF)
curImporteTotal = curImporteTotal + (.Fields("Cantidad") * .Fields("Precio Compra"))
.MoveNext
Loop
End With

Gracias!