pl help
i m getting insert into error
Private Sub Addbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Addbtn.Click
Dim mycmd1 As OleDbCommand
Dim sqlq1 As String
Try
If Addbtn.Text = "Add" Then
Idtxt.Text = Me.max + 1
clear()
Addbtn.Text = "Save"
Else
sqlq1 = "Insert into Member values(" & Idtxt.Text & ", '" & Nametxt.Text & "', '" & DateTimePicker1.Value & "', '" & gendercb.Text & "', '" & Classcb.Text & "','" & WingCb.Text & "', '" & FloorCb.Text & "', '" & RoomCb.Text & "', '" & occtxt.Text & "')"
mycmd1 = New OleDbCommand(sqlq1, con)
mycmd1.ExecuteNonQuery()
MsgBox("added succesfuly")
RecordRefresh() // refresh the record
Addbtn.Text = "Add"
where idtxt is number and remaining are text
and max is total row count
pl...........
help