Am not able to add/ retrive data

am making project on school bus managment system but am not able to access data frm the table or insert in to table
am using following code kindly guide me if thr is any error in code

If cnn.State = adStateOpen Then cnn.Close
cnn.Open
Set rst = New ADODB.Recordset
rst.Open "studrec", cnn, adOpenDynamic, adLockOptimistic, adCmdTable
With rst
.AddNew("Name") = TXTNAME.Text
.AddNew("fname") = TXTFNAME.Text
.AddNew("area") = TXTAREA.Text
.AddNew("class") = txtclass.Text
.AddNew("root") = txtrootno.Text
.AddNew("bus") = txtbusno.Text
End With
rst.Close
cnn.Close