Dim CRXReport As New Crpt1
Dim cnn1 As New ADODB.Connection
Dim datcmd1 As New ADODB.Command
Dim strCnn As String
Load Form2    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
        & App.Path & "\prtest.mdb;Persist Security Info=False;"
        
        
    cnn1.Open strCnn
    Set datcmd1.ActiveConnection = cnn1
    datcmd1.CommandText = "Test"
    datcmd1.CommandType = adCmdTable
    CRXReport.Database.AddADOCommand cnn1, datcmd1    
    Form2.Show vbModal
    
    Unload Form2
以上代码在    CRXReport.Database.AddADOCommand cnn1, datcmd1
出错,Runtime error 未启用创建功能?    datcmd1.CommandText = "Test"   'Test是表名,这样写没错吧。
真的头都大了。各位高手帮忙。