Hi!
You can create SQL clause or Append query based on your combobox for it. I use DoCmd.RunSQL in my applications always because SQL-s (queries) run better if criterias are defined as values.
dim strSQL as string
strSQL = "INSERT INTO Table1( Field1, Field2, Field3) "
strSQL = strSQL & "SELECT Table2.Field3, Table2.Field4, Table2.Field5 "
strSQL = strSQL & "FROM ADR "
strSQL = strSQL & "WHERE ADR.Street=" & MyCriteria & ";"
DoCmd.SetWarnings False 'Hide confirm message
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Also you can create Append query based on combobox and open it with VBA code
DoCmd.SetWarnings False 'Hide confirm message
DoCmd.OpenQuery "MyAppendQuery"
DoCmd.SetWarnings True
Aivars