求救用ADO如何添加记录到DataGrid控件中...

Question

Private Sub Form_Load()
    
    Set conn = New ADODB.Connection '设置连接对象实例
    conn.CursorLocation = adUseClient
    
    '打开数据源连接
    conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "mysearchmusic.mdb"
    
    '设置记录集对象实例
    Set rs = New ADODB.Recordset
    Set rs.ActiveConnection = conn
    
    
    '打来记录集
    rs.CursorLocation = adUseClient
    strSql = "select * from searchresult;"
    rs.Open strSql, conn, adOpenKeyset, adLockOptimistic, adCmdText    
    
    Set DataGrid1.DataSource = rs    conn.Execute "insert into searchresult(歌手姓名) values (" + Str(Singer) + ");", , , adCmdText      '注:Singer为变量上面这句conn.Execute是否正确,我调试说是编辑错误:错误的参数号或无效的属性赋值.请帮帮忙....       
    '用完之后关闭数据库:
    conn.Close
    Set conn = NothingEnd Sub

Answer 1

conn.Execute "insert into searchresult(歌手姓名) values (" + Str(Singer) + ");", , , adCmdText      '注:Singer为变量
-----------
是不是少了单引号啊，多了个分号
改为：
 conn.Execute "insert into searchresult(歌手姓名) values ('" + CStr(Singer) + "')", , , adCmdText      '注:Singer为变量你试试……

Answer 2

conn.Execute "insert into searchresult(歌手姓名) values ('" & Singer & "')"

Answer 3

conn.Execute "insert into searchresult(歌手姓名) values ('" & str(Singer) & "')"