pardon basit bi hata yüzünden çalışmıyormuş, uyarının nedeni kırmızı ile belirttiğim ikinci alanın yokluğuymuş, çok teşekkürler sayın berduş hocam , vallahi çalıştı, istediğim oldu, çok teşekkürler, dur daha neler yapacağız neler
Function kayit(Optional adi As String = "", Optional soyadi As String = "")
DoCmd.RunSQL ("INSERT INTO tbl (adit,soyadit) VALUES ('" & adi & "' , '" & soyadi & "')")
End Function