Thanks Paul,
I have seen this link earlier when I was trying to get a solution..
Please bare with me, I tried the code below,
Private Sub zip_AfterUpdate()
Dim varState, varCity As Variant
varState = DLookup("State", "zipcodes", "zip =[Zip] ")
varCity = DLookup("City", "zipcodes", "zip =[Zip]...