[Resolvido]Dividir caixa de listagem

  Opa, alguem ai sabe dividir caixa de listagem

Ele começar á contar de 1 até 10, depois de 11 até 20, 21 até 30 ...
Em vez dela continuar contando de 1 até 30 reto, eu queria dividir ela em colunas..

Código:

Private Sub Form_Load()

Me.lista1.RowSource = "Select * From tblnom Where código  Between 1 and 10 "
Me.Lista2.RowSource = "Select * From tblnom Where código  Between 11 and 20 "
Me.Lista3.RowSource = "Select * From tblnom Where código  Between 21 and 30 "

End Sub

Maravilhaaaaaa!!! Obrigado brother!!     

O Fórum agradece o retorno.
Sucesso Fernandes.