为什么会提示溢出呢？

[胖胖熊]

Dim Asc() As Integer
Dim db As Database

Dim Rec As Integer
Private Rs As New ADODB.Recordset
Private Conn As New ADODB.Connection


Private Sub Form_Load()

Dim strConn As String
Dim i As Integer

' 连接数据库的字符串
' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\fw_data.mdb;Persist Security Info=False"

' 使用客户端数据游标
Conn.CursorLocation = adUseClient
' 打开Access的连接
Conn.Open strConn

' 如果RecordSet的状态不是关闭状态,则关闭Recordset
If Rs.State <> adStateClosed Then Rs.Close

' Recordser打开表
Rs.Open "Select * from fw_users", Conn, adOpenKeyset, adLockOptimistic


Rs.MoveLast
Rec = Rs.RecordCount
ReDim Asc(Rec - 1)
Rs.MoveFirst
For i = 1 To Rec
cmb_name.AddItem Rs.Fields("fw_name")
' Asc(i - 1) = Val(Rs.Fields("fw_pwd")) 为什么会溢出呢？
Rs.MoveNext
If Rs.EOF Then Exit For
Next
'cmb_name.Text = ""
txt_pass.Text = ""

End Sub

数据库：fw_data.mdb
表为：fw_users
有字段：FW_NAME和FW_PWD，且皆为文本类型，长度15
有两条数据


为什么一运行就提示溢出呢？

调试返回到这条：
Asc(i - 1) = Val(Rs.Fields("fw_pwd"))



请问是什么原因啊？ 怎么解决呢？

[littleXX]

Exception type ErrorNumber Condition
OverflowException 6 InputStr is too large.
InvalidCastException 13 Number is badly formed.
ArgumentException 438 Object type expression not convertible to String.

Print Err.Number

出来看就知道了嘛

[clear_zero]

Dim Asc() As long试试看

[胖胖熊]

哈哈～～这么快就有答案了啊！

非常感谢啊！！
已经解决了～～：）