用ADO访问SQL SERVER 2000的问题

Question

Private Sub Command1_Click()
Dim intcount As Integer
Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open "dsn=newdb;uid=sa;pwd=sa;database=test"
Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Sql = "select * from employee"
    rs.Open Sql
    rs.AddNew
    For intcount = 0 To 4
       rs.Fields(intcount) = Trim(Text(intcount))
    Next intcount
    rs.Update
    rs.Close
End Sub
运行程序后 无法进行数据更新 希望高人能帮看看

Answer 1

Private Sub Command1_Click()
Dim intcount As Integer
Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open "dsn=newdb;uid=sa;pwd=sa;database=test"
    conn.execute "insert into employee(...) values(...)"
End Sub

Answer 2

rs.Open Sql,conn,, adOpenKeyset, adLockOptimistic

Answer 3

上面多了一个逗号
rs.Open Sql,conn, adOpenKeyset, adLockOptimistic