how to add records to an access table using code?

Make an append query then you can use code like this,


Private Sub Run_Click()
On Error GoTo Err_Run_Click

Dim stDocName As String

stDocName = "APPENDQUERYNAME"
DoCmd.SetWarnings False
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings True

Exit_Run_Click:
Exit Sub

Err_Run_Click:
MsgBox Err.Description
Resume Exit_Run_Click

End Sub