Try
Code:
Private Sub btnSave_Click()
Dim sSql As String
'Append Company Name, Address, and Address Type
sSql = "INSERT INTO tbl1Company (CompanyName)"
sSql = sSql & " VALUES ('" & Me.txtCompanyName & "');"
CurrentDb.Execute sSql, dbFailOnError 'insert to tbl1Company
sSql = "INSERT INTO tbl1Addresses (AddressType_ID, AddressLine1, AddressLine2, City, State, Zip)"
sSql = sSql & " VALUES ('" & Me.txtAddressType_ID & "', '" & Me.txtAddressLine1 & "', '" & Me.txtAddressLine2 & "', '" & Me.txtCity & "', '" & Me.txtState & "', '" & Me.txtZip & "');"
CurrentDb.Execute sSql, dbFailOnError 'insert to tbl1Addresses
sSql = "INSERT INTO tbl1PhoneNumbers (PhoneNumber, PhoneType_ID)"
sSql = sSql & " VALUES ('" & Me.txtWorkPhone & "', '" & Me.txtPhoneType_IDWork & "');"
CurrentDb.Execute sSql, dbFailOnError 'tbl1PhoneNumbers
End Sub