Stored procedure/SQL query of MS Access in VB.Net

Dim prov As String = "Microsoft.Jet.OLEDB.4.0"
Dim pass As String = "123"
Dim con As New OleDb.OleDbConnection("Provider=" + prov + ";Data Source=" + "F:\Perfect Engineering\Perfect Engineering\Perfect Engineering\bin\Debug\Perfect_Engineering.mdb;Jet OLEDB:Database Password=" + pass)
Dim cmd As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
con.Open()
cmd.Connection = con
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "delivery_pending"
dr = cmd.ExecuteReader
If dr.Read() Then
   MsgBox(dr(0))
End If

SQL Query to sum and compare a field’s value based on relationship

Let the tables be,

Table: delivery_challan primary key: dcno	Table: invoice_entry Foreign key: dcno
dcno recqty 1 5 2 5	dcno desqty 1 2 1 3 2 3

Scenario: we have to sum the ‘desqty’ of the invoice_entry on ‘dcno’ wise and should compare with the ‘recqty’ of delivery_challan on ‘dcno’ wise and should show only the records of the ‘delivery_challan’ for which ‘recqty’ is greater than the sum of corresponding dcno’s ‘recqty’.

I am dam sure, you can’t understand my English. Just try the query and find the result.

SELECT * from delivery_challan where delivery_challan.recqty > (select sum(desqty) from invoice_entry where invoice_entry.dcno=delivery_challan.dcno);