Cara DLookup di Access

Untuk Integer :

Dim varX As Variant
varX = DLookup("[LastName]", "Employees", "[EmployeeID] = 1")

=DLookup("[ProductName]", "Products", "[ProductID] =" _
& Forms![Order Details]!ProductID)

Dim intSearch As Integer
Dim varX As Variant

intSearch = 1
varX = DLookup("[CompanyName]", "Shippers", _
"[ShipperID] = " & intSearch)
Untuk String :

Dim varX As Variant

varX = DLookup("[Total RJ]", "[qrySumRJ]", "[strPRNo] = '" & strPRNo & "'")

Dim varX As Variant


varX = DLookup("[Total RJ]", "[qrySumRJ]", "[strPRNo] = '100001'")