Tente isso: INSERT INTO Proced(campo1, campo2, campo3) values('" & combo1.text &"','" & text1.text & "','" & text2.text & "')
Debug.Print "INSERT INTO Proced(campo1, campo2, campo3) values('" & combo1.text &"','" & text1.text & "','" & text2.text & "')"