Pls help how to add record,

[alem]

Alem
Hallo all!

pls help me how to add record I tried the folwing code but Icould't Add.
[CODE=vb]
Private Sub cmdadd_Click()
Dim S
On Error GoTo cmdokError
If cuurentcommand = "Add" Then
rs.AddNew
For i = 0 To 15
rs.Fields(i) = txtx(i)
Next i
S = MsgBox("Added", vbOKOnly, "Add")
rs.Update
End If
cmdokEnd:
cmdokError:
rs.CancelUpdate

End Sub
[/CODE]
Thank you in advance.

[debasisdas]

What is the problem with your code ?

Is that throwing any error ?

[devonknows]

Personally for a start, you are better taking out your
' On Error Goto cmdokError '

This is stopping you receiving your Debug messages as it is
just canceling the update, so you dont know where the error
is being triggered

Have you opened the Connection via RS.Open?
[CODE=vb]

Dim conn as New ADODB.Connectio n
Dim rs as New ADODB.Recordset

conn.Connection String = "your_connectio n_string_here"
conn.Open 'Open the connection

rs.Open "select * from MY_TABLE", conn, adOpenDynamic, adLockOptimisti c

'you also need to Dim i
Dim i as Integer

'Ubound Gives the upper bound of txtx()
'stops you going subscript out of range in case the bound of txtx changes
For i = 0 to UBound(txtx)
RS.Fields(i) = txtx(i)
next i
'Update and close your recordset
rs.Update
rs.Close
conn.Close

[/CODE]

But before you make any changes, take out the Error handling, and see what error message it gives you back and click Debug on the error it will highlight the line.

Kind Regards
Devon

[alem]

I thank you all

but I could'nt go further bu I thank you agin.