vb连接SQL Server2000数据库,怎样用SQL语句进行添加，删除，更新操作，并在dataGrid控件中显示数据。

Question

在dataGrid控件中显示数据库数据，用SQL 语句进行数据库操作
添加部分：
Private Sub cmdOK_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=stuDB;Data Source=.;"
conn.CommandTimeout = 30
conn.Open
strSQL = "INSERT INTO student(编号,姓名,年龄,性别) VALUES 
         ('" & txtStuID.Text & "  ', '" & txtStuName.Text & "',
          '" & txtStuAge.Text & "','" & stuSexCombo.Text & "')"
conn.Execute strSQL
End Sub更新部分：
Private Sub cmdRefresh_Click(Index As Integer)
    Adodc1.Refresh
End Sub删除部分不会写。
请高手完整地举个例子，尤其是删除部分。（就是在dataGrid控件中选择相应数据行，点击“删除”）
谢谢！

Answer 1

If Not (rs.EOF) Then
    Dim i As Integer
    i = MsgBox("真的要删除 :" & rs.Fields(0).Value & " 的记录?", vbYesNo, "删除记录")
    If i = vbYes Then
        rs.Delete adAffectCurrent      '关键是这句,删除当前记录
    End If
End If