Option Explicit
Private Sub Command2_Click()
With Adodc1.Recordset
.AddNew
!d_no = Val(Text1.Text)
!d_name = (Text2.Text)
!address = Text3.Text
!p_no = Text4.Text
.Update
.Requery
End With
MsgBox ("data inserted")
End Sub