i am trying to add records to database by Lynx grid, but i did not understand perfect code. i googled also, but not find right example Can any one give me best example

i am trying to add records to database by Lynx grid, but i did not understand perfect code. i googled also, but not find right example Can any one give me best example

Option Explicit Dim DB As ADODB.connection Dim strString As String Dim rs As ADODB.recordset Dim cs As ADODB.connection Dim ks As ADODB.recordset Private Const CB_SHOWDROPDOWN As Long = &H14F Private Const CB_GETDROPPEDSTATE As Long = &H157 Private Drop As Boolean Private Const CB_FINDSTRING = &H14C Private Const CB_SELECTSTRING = &H14D Private Const CB_LIMITTEXT = &H141 Private Const CB_ERR = (-1) Private Sub db_conn() Set DB = New ADODB.connection DB.CursorLocation = adUseClient DB.Open "PROVIDER = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Medrar.mdb;" End Sub Private Sub cmdAcchu_Click() Dim obj, rs As ADODB.recordset, SQL As String Set rs = New ADODB.recordset Set rs = New ADODB.recordset strString = " SELECT cusname,idnumb,mobi,pron,proc,blkno,lannum,sqland,cost,comiso,addit,deduc,gtot,vali,rename" & _ " From reser" & _ " WHERE reno = '" & Combo1.Text & "' " rs.Open strString, DB, adOpenStatic ' Set rs = db.Execute(strString) 'With reportPS If Not rs.EOF Then Set Reservation.DataSource = rs.DataSource '-----------------------------------------------------------------------------------------------' 'PageHeader Reservation.Sections("PageHeader").Controls("lblcusname").Caption = CStr(rs!cusname) Reservation.Sections("PageHeader").Controls("lblidnumber").Caption = CStr(rs!idnumb) Reservation.Sections("PageHeader").Controls("lblmobile").Caption = CStr(rs!mobi) Reservation.Sections("PageHeader").Controls("lblPron").Caption = CStr(rs!pron) Reservation.Sections("PageHeader").Controls("lblProc").Caption = CStr(rs!proc) Reservation.Sections("PageHeader").Controls("lblBlkno").Caption = CStr(rs!blkno) Reservation.Sections("PageHeader").Controls("lblLn").Caption = CStr(rs!lannum) Reservation.Sections("PageHeader").Controls("lblsql").Caption = CStr(rs!sqland) Reservation.Sections("PageHeader").Controls("lblcost").Caption = CStr(rs!cost) Reservation.Sections("PageHeader").Controls("lbCommi").Caption = CStr(rs!comiso) Reservation.Sections("PageHeader").Controls("lblAdd").Caption = CStr(rs!Addit) Reservation.Sections("PageHeader").Controls("lblDed").Caption = CStr(rs!deduc) Reservation.Sections("PageHeader").Controls("lblGt").Caption = CStr(rs!Gtot) Reservation.Sections("PageHeader").Controls("lblVali").Caption = CStr(rs!vali) Reservation.Sections("PageHeader").Controls("lblrname").Capti