Simple database to enter students
no vote
Private Sub Command_(click) opening programm Dim a as Database declaring as database Dim r as Recordset declaring to table Set a = opendatabase("student") set r = d.openrecordset("select * from table1") r.AddNew adding new r!Studentname = Text1.Text adding from textbox1 to table in field of studentname r.Update saving End Sub &n