...with it:
Private Sub cmdOK_Click()
Dim strSQL As String
strSQL = "INSERTINTO tblPending.([Qty Delivered]) Values ('Text2.Value')" & _
"SELECT * FROM tblPending WHERE (((tblPending.[Part Number]) = '" & Text0.Value & "'"
DoCmd.RunSQL strSQL
DoCmd.OpenForm "frmOutput", , , , , ...