[求助][已解决]请大侠帮忙看一下这句代码有什么问题呀！

jacken

Private Sub Text64_GotFocus()
    DoCmd.RunSQL "delete * from 列表数据选择"
    Dim rs11 As DAO.Recordset, I1 As Integer, leibiao As String
    Set rs11 = CurrentDb.OpenRecordset("SELECT * FROM 分析结果")
    For I1 = 0 To rs11.Fields.Count - 1
    leibiao = ""
    leibiao = rs11.Fields(I1).Name
    MsgBox leibiao
    DoCmd.RunSQL "INSERT INTO [列表数据选择](列表源) VALUES(" & leibiao & ")"
    Next I1
    Set rs11 = Nothing

End Sub

执行后无法追加，追加后全部为空的值。而且还出现提示框，要求输入值。

[此贴子已经被作者于2006-5-16 9:20:17编辑过]

一点通

请说明提示的语句

sgrshh29

DoCmd.RunSQL "INSERT INTO [列表数据选择](列表源) VALUES(" & """" & leibiao & """" & ")"

jacken

二楼的，你测试一下就知道了，三楼的完全正确，谢谢！