救急！！outlook导出的邮件文本怎样导入access数据库？来者有分！

Question

我有很多以下样式的文本
             From: [email protected]
             To: [email protected]
             Subject: hello
             Date: Mon, 14 Jun 2004 12:05:11 +0800
             MIME-Version: 1.0
             Content-Type: multipart/mixed;
    boundary="----=_NextPart_000_0002_C19F45E1.91AD5C6C"
             .............以下略
主要是用前四行，后面的算邮件内容，建立以from,to,subject,data，content为字段名称的access数据库，然后实现多文件的导入。劳烦各位大侠给小女指点一下吧，最好是代码，感激不尽啊！！
还有个问题，建好的这个数据库怎么实现基于日期的模糊查询？拜托也帮一下吧！！万分感谢啊！！

Answer 1

办法虽苯，但可行。 
    Private Sub Command1_Click()      Dim MyConn As Database 
     Dim workJet As DAO.Workspace    
  
     Dim sql As String 
     Dim temp As String 
     Dim i As Integer 
     
     
     Set workJet = Workspaces(0) 
     Set MyConn = workJet.OpenDatabase(App.Path & "\VolSnDB.mdb") 
     
     '假设 table1 只有一个文本字段
     
     While i <= Len(Text1.Text) - 1 
     temp = Left(Right(Text1.Text, Len(Text1.Text) - i), 1) 
     If (temp <> Chr(13) And temp <> Chr(10)) Then 
     sql = sql & temp 
     End If 
     i = i + 1 
     Wend 
     sql = "insert into table1 values('" & sql & "')" 
     MyConn.Execute sql, dbFailOnError 
     
    End Sub 

Answer 2

很感谢 junki(『打破沙锅问到底』) 
是用的sql和dao?  我在这方面很是白痴，能不能写的详细一点，小女这厢有礼了！！