Run Timer Error 6

[Leandro_Pirozzi]

Galera estou com esse erro.

OVERFLOW

ACREDITO EU QUE SEJA MTA INFORMAÇÃO PARA SER CARREGADA EM UM COMBOBOX, POIS ELE PARA NO REGISTRO DE NUMERO 32768.

alguém PODE ME DAR UMA DICA??

OBRIGADO!!

Segue o codigo

Public Sub MontaCOMBO1(frm As Form)

    Dim rs As Recordset
    Dim strSQL As String
    Dim lnX As Double
             
    strSQL = "select * "
    strSQL = strSQL & " from CONTATOS_HISTORICO1"
'    strSQL = strSQL & " order by ID_PROP"
    
    frm.COMBO1.Clear
    
    Set rs = New ADODB.Recordset
    
    rs.Open strSQL, gDB, adOpenStatic, adLockReadOnly
    
    If rs.EOF And rs.BOF Then
        MsgBox "Nenhum registro cadastrado na tabela de Categorias"
        Exit Sub
    End If
        
    rs.MoveFirst
    lnX = 0
    
    While Not rs.EOF
        frm.COMBO1.AddItem rs!CODEMP & ""
        frm.COMBO1.ItemData(lnX) = rs!ID_HIST
[b]        lnX = lnX + 1[/b] AQUI É ONDE ELE PARA.
        rs.MoveNext
    Wend
    
End Sub

Editado Maio 22, 2009 por Leandro_Pirozzi

[Leandro_Pirozzi]

Galera estou com esse erro.

OVERFLOW

ACREDITO EU QUE SEJA MTA INFORMAÇÃO PARA SER CARREGADA EM UM COMBOBOX, POIS ELE PARA NO REGISTRO DE NUMERO 32768.

alguém PODE ME DAR UMA DICA??

OBRIGADO!!

Segue o codigo

Public Sub MontaCOMBO1(frm As Form)

    Dim rs As Recordset
    Dim strSQL As String
    Dim lnX As Double
             
    strSQL = "select * "
    strSQL = strSQL & " from CONTATOS_HISTORICO1"
'    strSQL = strSQL & " order by ID_PROP"
    
    frm.COMBO1.Clear
    
    Set rs = New ADODB.Recordset
    
    rs.Open strSQL, gDB, adOpenStatic, adLockReadOnly
    
    If rs.EOF And rs.BOF Then
        MsgBox "Nenhum registro cadastrado na tabela de Categorias"
        Exit Sub
    End If
        
    rs.MoveFirst
    lnX = 0
    
    While Not rs.EOF
        frm.COMBO1.AddItem rs!CODEMP & ""
        frm.COMBO1.ItemData(lnX) = rs!ID_HIST
[b]        lnX = lnX + 1[/b] AQUI É ONDE ELE PARA.
        rs.MoveNext
    Wend
    
End Sub

RESOLVIDO GALERA!!

TENTEI PASSAR PARA CURRENCY, MESMO ASSIM não DEU.

Dim lnX As Currency

Então carreguei tudo em um GRID, ao invés de carregar em um combo box.

Ai foi belezinha!!!

Vlwww galera!!!