Code:
Private Sub btn_Submit_Click()
Dim queryStr As String
Dim i As Integer
i = 1
Do While i <= 50
Select Case i
Case 1
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'', " & "'" & cmt_q1 & "'"
Case 2
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q2 & "', " & "''"
Case 3
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q3 & "', " & "''"
Case 4
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q4 & "', " & "'" & cmt_q4 & "'"
Case 5
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q5 & "', " & "'" & cmt_q5 & "'"
Case 6
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q6 & "', " & "'" & cmt_q6 & "'"
Case 7
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q7 & "', " & "'" & cmt_q7 & "'"
Case 8
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q8 & "', " & "'" & cmt_q8 & "'"
Case 9
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q9 & "', " & "'" & cmt_q9 & "'"
Case 10
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q10 & "', " & "'" & cmt_q10 & "'"
Case 11
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q11 & "', " & "'" & cmt_q11 & "'"
Case 12
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q12 & "', " & "'" & cmt_q12 & "'"
Case 13
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q13 & "', " & "'" & cmt_q13 & "'"
Case 14
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q14 & "', " & "'" & cmt_q14 & "'"
Case 15
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q15 & "', " & "'" & cmt_q15 & "'"
Case 16
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q16 & "', " & "'" & cmt_q16 & "'"
Case 17
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q17 & "', " & "'" & cmt_q17 & "'"
Case 18
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q18 & "', " & "'" & cmt_q18 & "'"
Case 19
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q19 & "', " & "'" & cmt_q19 & "'"
Case 20
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q20 & "', " & "'" & cmt_q20 & "'"
Case 21
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q21 & "', " & "'" & cmt_q21 & "'"
Case 22
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q22 & "', " & "'" & cmt_q22 & "'"
Case 23
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q23 & "', " & "'" & cmt_q23 & "'"
Case 24
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q24 & "', " & "'" & cmt_q24 & "'"
Case 25
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q25 & "', " & "'" & cmt_q25 & "'"
Case 26
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q26 & "', " & "'" & cmt_q26 & "'"
Case 27
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q27 & "', " & "'" & cmt_q27 & "'"
Case 28
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q28 & "', " & "'" & cmt_q28 & "'"
Case 29
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q29 & "', " & "'" & cmt_q29 & "'"
Case 30
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q30 & "', " & "'" & cmt_q30 & "'"
Case 31
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q31 & "', " & "'" & cmt_q31 & "'"
Case 32
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q32 & "', " & "'" & cmt_q32 & "'"
Case 33
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q33 & "', " & "'" & cmt_q33 & "'"
Case 34
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q34 & "', " & "'" & cmt_q34 & "'"
Case 35
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q35 & "', " & "'" & cmt_q35 & "'"
Case 36
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q36 & "', " & "'" & cmt_q36 & "'"
Case 37
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q37 & "', " & "'" & cmt_q37 & "'"
Case 38
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q38 & "', " & "'" & cmt_q38 & "'"
Case 39
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q39 & "', " & "'" & cmt_q39 & "'"
Case 40
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q40 & "', " & "'" & cmt_q40 & "'"
Case 41
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q41 & "', " & "'" & cmt_q41 & "'"
Case 42
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q42 & "', " & "'" & cmt_q42 & "'"
Case 43
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'', " & "'" & cmt_q43 & "'"
Case 44
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'', " & "'" & cmt_q44 & "'"
Case 45
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'" & rsp_q45 & "', " & "'" & cmt_q45 & "'"
Case 46
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'', " & "'" & cmt_q46 & "'"
Case 47
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'', " & "'" & cmt_q47 & "'"
Case 48
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'', " & "'" & cmt_q48 & "'"
Case 49
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'', " & "'" & cmt_q49 & "'"
Case 50
queryStr = "INSERT INTO [t_User_Ldr_Responses] VALUES(" & _
txt_recnum & ", " & i & ", " & "'', " & "'" & cmt_q50 & "'"
End Select
i = i + 1
queryStr = queryStr & ")"
DoCmd.SetWarnings False
DoCmd.RunSQL queryStr
Loop
MsgBox "Survey has been added to the database."
End Sub