Proyecto Mysql y Vb6.0

Private Sub cmdAdd_Click()


Dim rs As ADODB.Recordset

Dim strsql As String

strsql = "insert into Issue_Tab(Startno, End no, Issuedate, Brncode) Values( ' " & txtstartno.Text & " ' , ' " & 
txtendo.Text & " ' , ' " & txtdate.Text & " ' , where Brncode = ' " & txtbrncode.Text & " '  ) "

Set rs = pcnl.Execute(strsql)

Set rs = Nothing

MsgBox " Saved"

Me.filllistview

End Sub

Sub filllistview()

strsql = "select * from Issue_Tab"

Set rs = pcnl.Execute(strsql)

ListView1.ListItems.Clear

Do While Not rs.EOF

Set Item = ListView1.ListItems.Add(, , rs!Startno)

Item.SubItems(1) = rs!Endno & ""

Item.SubItems(2) = rs!Issuedate & ""

Item.SubItems(3) = rs!Brncode & ""

rs.MoveNext

Loop

Set rs = Nothing

End Sub


Private Sub Command1_Click()

Dim strsql As String

Dim rs As ADODB.Recordset

strsql = " Delete from Issue_tab where Brncode = ' " & txtbrncode.Text & " ' "

Set rs = pcnl.Execute(strsql)

Set rs = Nothing

MsgBox "Delete"

Me.filllistview

End Sub

Private Sub Form_Load()

Me.filllistview

End Sub


Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

With Item

txtstartno.Text = Item

txtendno.Text = .SubItems(1)

txtdate.Text = .SubItems(2)

txtbrncode.Text = .SubItems(3)

End With

End Sub



Private Sub txtupdate_Click()

Dim strsql As String

Dim rs As ADODB.Recordset

strsql = " update Issue_Tab set startno = ' " & txtstartno.Text & " ' , Endno = ' " & txtendno.Text & " ' , Issuedate = ' " & txtdate.Text & " '  where Brncode = ' " & txtbrncode.Text & " ' "

Set rs = pcnl.Execute(strsql)

Set rs = Nothing

MsgBox " Updated"

Me.filllistview

End Sub

"""" i did this coding in my project & i also did add the module in it.... but the problem with the coding is that neither it is showing any error nor it is working and not showing changes in database of my sql..... so please help me out as soon as you can coz i have to submit the project in the company.......

thanks in advance.. for helping me into this..!