求助一个Access数据导入EXCEL的问题

xnc_0014

大家好：
    晚辈求助各位大侠，谢谢。
    附件中Access数据库只有一张表（表1）和一个窗体（窗体1），我的目的是通过窗体来把信息输入表中。工号和姓名都没问题，只有课程一栏有问题。因为一位教师可以教多门课，所以这是一个多选框，可是这个框无论选择一门课程还是多门课程，都无法写入表1中。我希望的效果是这样的：如果只选择一门课，那就和文本框效果一样，但如果选择了两门课，那么就在数据库中生成两行数据，这两行数据的工号、姓名都一样，只有课程不同，这个可以做到吗？
    我最终的愿望是将Access中的数据导入Excel中，如果这个效果做不到的话，那么有没有其他办法可以实现？当然，希望教师的其他信息只输入1遍，重复输入成多条记录的话操作性不太好。谢谢。
    另外，我是初学者，根据教材，将Access数据导入EXCEL的代码如下：

Private Sub Command1_Click()
Dim CNN As New ADODB.Connection
     Dim RST As New ADODB.Recordset
     Dim Stpath, strSQL As String
     Dim RLD As ADODB.Field
     Dim newTable As New table
     newTable.Name = "新表"
     Stpath = CurrentProject.Path + "\DIS.mdb"
     CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath
     strSQL = "Select 品目条码,日期 from 出库管理"
     RST.Open strSQL, CNN
     newTable.Columns.Append "品目条码" & " " & "日期"
        Do While Not RST.EOF
           newTable.Columns.Append RST("品目条码").Value & " " & RST("日期").Value
        RST.MoveNext
        Loop
     DoCmd.OutputTo acOutputTable, "新表", "Text(*.txt)", "", False
End Sub

    这段代码的目的是将数据导入TXT文件，不过我根据这个例子编写后，发现在“Dim newTable As New table”这里就出错了，系统告诉我table类型未定义。由于才疏学浅，有些Hold不住，还请各位大侠不吝赐教，谢谢。

xnc_0014

自己顶一下，谢谢