Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=c:\db.mdb"
cn.Execute "update a ,b Set total = b.price * b.Number where a.id=b.id"
cn.Close
Set cn = Nothing
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=c:\db.mdb"
cn.Execute "update a ,b Set total = b.price * b.Number where a.id=b.id"
cn.Close
Set cn = Nothing