(Resolvido) (Resolvido) Pesquisa em ordem numrica

[GilbertoB]

Tenho uma pesquisa que preenche um FlexGrid em ordem numerica mas esta ordenando errado, a ideia era por 1,2,3 ...10,11,12 e por ai vai mas ta ocorrendo o seguinte :

10

11

12

13

1

2

3

4

5

6

7

8

9

Aqui ta o codigo que to usando pra pesquisa ele filtra a pesquisa e passa os dados para o FlexGrid a ordem numerica é posta no campo codigo.

Dim SQLbd As String
    AFB
    Set Rs = New ADODB.Recordset
    SQLbd = "Select Codigo, Nome, Data from Cadastro Order By Codigo"    'Aqui é feito a filtragem e o campo Codigo é posto em ordem, no caso numerica
    Rs.CursorLocation = adUseClient
    Rs.Open SQLbd, Con, adOpenKeyset, adLockReadOnly
    Dim i As Integer
    Dim j As Integer
    MSFlexGrid1.ColWidth(1) = 3000
    MSFlexGrid1.ColWidth(0) = 750
    MSFlexGrid1.ColWidth(2) = 1000
    If Not Rs.EOF Then
        MSFlexGrid1.Rows = Rs.RecordCount + 1
        MSFlexGrid1.Cols = Rs.Fields.Count
        For i = 0 To Rs.Fields.Count - 1
        MSFlexGrid1.TextMatrix(0, i) = Rs.Fields(i).Name
        Next
        i = 1
        Do While Not Rs.EOF
        For j = 0 To Rs.Fields.Count - 1
            If Not IsNull(Rs.Fields(j).Value) Then
                MSFlexGrid1.TextMatrix(i, j) = Rs.Fields(j).Value
        End If
        Next
    i = i + 1
    Rs.MoveNext
    Loop
    End If

Editado Maio 25, 2011 por GilbertoB

[raphael_suporte]

o erro pode não estar no "codigo" e sim no banco, você tem como confirmar que o campo "codigo" é do tipo numérico? e se possível tente executar essa query diretamente no banco para comparar os resultados.

[GilbertoB]

o erro pode não estar no "codigo" e sim no banco, você tem como confirmar que o campo "codigo" é do tipo numérico? e se possível tente executar essa query diretamente no banco para comparar os resultados.

Obrigado pela resposta ^_^ , foi so por o campo como numerico que resolveu o problema vlw pela ajuda :D