辦 法 雖 苯 ， 但 可 行 。 
    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 
    ） 
<END>    
如 果 非 要 用 SQL直 接 操 作 ， 可 以 將 多 行 文 本 分 解 成 幾 個 字 符 串 ， 然 后 用 "VBCRLF"將 每 個 符 串 連 接 成 一 個 字 符 串 就 行 了 。 
<END>