VB将EXCEL导入到ACCESS中的几个问题？

Question

1、我在窗口中用OLE控件来显示EXCEL内容，内容较多OLE控件无法显示完全，如何才能在OLE控件中实现滚动条？
2、我的EXCEL有一列内容类似如下：
被叫号码
7698888888
7528888888
7556666666
IP0088888888
IP0077777777
88888888
.....
在将这个EXCEL文件导入到数据库后，这一列的数据类型为数字类型，则IP******这样的数据无法显示出来，有没有办法在导入时将这一列的数据类型设为文本类型，我是用以下的函数来导入EXCEL文件的
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
    
    Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
    Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]")
    MsgBox "EXCEL文件已导入到数据库中", vbInformation, "导入EXCEL"
End Sub

Answer 1

db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]")
//在这一句中,select 后面的“*”写出具体的字段列表，然后用数据类型转换函数进行转换,如
select cstr(被叫号码) into ..........
具体的转换函数你要查一下，我不知道转换函数是什么,cstr是vb的转换函数!

Answer 2

//要命名别名
select cstr(被叫号码) as 被叫号码 into ..........