Dim f As Double
Dim f1 As Double
Dim f2 As Long
Dim e1 As Double
Dim j As Double
Dim sql2 As String
sql2 = "select * from  集中载荷表 where 车型='" & Trim(Combo1.Text) & "'"
rs_find2.CursorLocation = adUseClient
rs_find2.Open sql2, conn, adOpenKeyset, adLockPessimistic
f = Val(Text1.Text)
rs_find2.MoveFirst
Do While Not rs_find2.EOF
j = rs_find2.Fields("容许载重(t)")
e1 = j - f
If e1 >= 0 Then
Exit Do
End If
rs_find2.MoveNext
Loop
rs_find.MovePrevious
f2 = rs_find2.Fields("平车地板负重面长度(mm)")
f1 = rs_find2.Fields("容许载重(t)")
c = 1000 * (f - f1) / (j - f1) + f2
Label9.Caption = c



老是在c = 1000 * (f - f1) / (j - f1) + f2显示溢出 请大家帮忙解决一下 谢谢