vba - 次の MS Access 2010 VBA コードでヘルプが必要

Question

私はこのコードを使用していますが、エラーは表示されませんが、入力されたデータはテーブルに保存されません。

Private Sub Command21_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String, strItem As String

strSQL = "SELECT hotel_ID, Hotel_Name FROM hotels"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)

rs.AddNew
   ' rs.Fields("Hotel_ID") = frmHotel_ID          Hotel_ID is a autonumber field
    rs.Fields("Hotel_Name") = frmHotel_Name
rs.Close
Set rs = Nothing
Set db = Nothing

End Sub

Answer 1

おそらく .Update への呼び出しがありませんか?