strMain = "SELECT DISTINCT [A], [B], [C], [D], [E], [F] FROM TblR"
Set rstMain = db.OpenRecordset(strMain, dbOpenDynaset)

Dim db As DAO.Database
Dim strMain As String
Dim rstMain As DAO.Recordset
Dim strSub As String
Dim rstSub As DAO.Recordset
Dim strComment As String
Dim strInsert As String
DoCmd.SetWarnings False
DoCmd.OpenQuery ("Qry")
Set db = CurrentDb
  
strMain = "SELECT DISTINCT [A], [B], [C], [D] FROM tblR"
Set rstMain = db.OpenRecordset(strMain,

strDeleteQuery= "DELETE * FROM tblOrigin WHERE " & _ 
                 "A = " & !A & " AND B = " & !B ";
 db.Execute strDeleteQuery,

MyTable.MoveFirst
Do While Not MyTable.EOF
        If IsNull(Me.Description.Value) = False Then
        strDescription = LCase(MyTable![Description])
        E = Me.Description.Value
        E = A & " , " & strDescription
        Else
        strDescription = LCase(MyTable![E])

Dim db As DAO.Database
Dim strOP As String
Dim rstOP As DAO.Database
Dim seqNo As Integer
Dim quoteNo As String
Dim cPN As String
Dim routingStr As String
Dim strUpdate As String

DoCmd.RunCommand acCmdSaveRecord

Set db = CurrentDb
  
strOP = "SELECT * FROM tblRoutingMain " & _
        "WHERE