怎样实现VB与SQL数据的数据更新、修改、删除（在线等待）

Question

我编写了如下的登录程序：其中有两个如下控件text1、text2分别用来输入用户名和密码，另外设有command1、command2、command3、command4用于系统登录，密码修改，增加记录，删除记录.在数据库里有一张“密码表”，字段为“用户名”，“密码”。要求每单击一个按钮时实现相应的功能。请问密码修改，增加记录，删除记录怎样实现。谢谢（以下是程序的登录部分）
Option Explicit
    Public Cnet As New ADODB.Connection
    Public oRs   As New ADODB.Recordset
Private Sub Command1_Click()
    Cnet.Open ("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123;Initial Catalog=XSQ;Data Source=640C06DFD021434")
    oRs.Open ("select * from 密码表"), Cnet
    Do While Not oRs.EOF
        If Trim(Text1.Text) = Trim(oRs("用户名")) And Trim(Text2.Text) = Trim(oRs("密码")) Then
            form2.show
        End If
       oRs.MoveNext
    Loop
      oRs.Close
      Set oRs = Nothing
    
End SubPrivate Sub Command2_Click()
Me.Hide
End Sub
Private Sub Form_Load()
    
    Text1.Text = ""
    Text2.Text = ""
End Sub

Answer 1

'增加记录：
cnet.execute "insert into 表名(a,b) values('"& a &"','"& b &"')"
'修改记录：
cnet.execute "update 表名 set b='"& b &"' where a='"& a &"'"
'删除记录：
cnet.execute "delete from 表名 where a='"& a &"'"