The easiest way is to use an array of variant stature, so that each element that you want on your database row is in the array and populated from the form. The next row is found using:
Nextrow = Cells(Rows.Count,1).End(xlup).Row + 1
and the array contents transferred in a simple loop. If you do not need to have the information in your dedicated cells then you can dispense with them in favour of the array.
If you need any more help of a more specialised nature then feel free to contact me direct either via the envelope or messenger. MSN address [email protected]