اين كد كجاش غلطه

باسلام خط 4 اين كد را اشكال مي گيره با تشكر

PrivateSub btnupdate_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnupdate.Click
Dim db AsNew DataBase
db.DoCommand("update tabel1 set id='" + txtid.Text + "',name='" + txtname.Text + "',adr='" + txtadress.Text + "' where name='" + Name + "' and id='" + id + "'")
Form1_Load(sender, e)
MessageBox.Show("Updated")
EndSub

PrivateSub btnupdate_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnupdate.Click
Dim db As New DataBase
db.DoCommand("update tabel1 set id='" + txtid.Text + "',name='" + txtname.Text + "',adr='" + txtadress.Text + "' where name='" + Name + "' and id='" + id + "'")
Form1_Load(sender, e)
MessageBox.Show("Updated")
EndSub