怎样把多项数据存入到一个字段中？

最简单的了.tempStr = "89745614" & vbCrLf & "13888888888" & vbCrLf & "12345678"
你将tempStr 存入你的表中.读出来一个值,就是"89745614" & vbCrLf & "13888888888" & vbCrLf & "12345678",再用以下的语句拆分出三个号码
Dim ls_Content() As String
ls_Content = Split("你读出来的值", vbCrLf)
msgbox ls_Content(0)'第一个号码
'ls_Content(1)'第二个号码
'ls_Content(2)'第三个号码