Mencari Luas Persegi Panjang Kiwiwew

Private Sub CmdClose_Click()
DoCmd.Save
 DoCmd.Close

End Sub

Private Sub CmdHapus_Click()
 TxtPanjang = ""
 TxtLebar = ""
 TxtLuas = ""
End Sub
Private Sub CmdHitung_Click()
Dim P, L As Integer
P = TxtPanjang
L = TxtLebar
TxtLuas = P * L
End Sub