I have the below statement which executes without an error but the value does not write into the table. Am I missing something?
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSql As String
Dim intPaymentID As Integer
Dim intMemberID As Integer
intPaymentID = [Form_Payment SubForm_Add].txtPaymentID_Trans.Value
intMemberID = [Form_Payment SubForm_Add].txtMemberID_Trans.Value
Set db = CurrentDb()
sSql = "Select * from [tblJunction_MemberID2PaymentID]"
Set rs = db.OpenRecordset(sSql)
sSql = "INSERT INTO tblJunction_MemberID2PaymentID (MemberID, PaymentID) VALUES (" & intMemberID & " , " & intPaymentID & ")"