Bom primeiro nao uso o dbgrid prefiro o msflex mais.....

o que voce quer que aconteca. Nao sei se ajuda de uma olhada

' Para montar o grid, ele esta ligado a um objeto DATA

  

    Data1.DatabaseName = "c:db.mdb"
    Data1.RecordSource = "Select * from publicidade Where locador = 1"        

    Data1.Refresh
    
    dbg_lista.Columns![data_anuncio].Caption = "Data"
    dbg_lista.Columns![data_anuncio].Width = "1000"
    dbg_lista.Columns![data_anuncio].Visible = True
    dbg_lista.Columns![Valor].Caption = "Valor"
    dbg_lista.Columns![Valor].Width = "1000"
    dbg_lista.Columns![Valor].Visible = True
    dbg_lista.Columns![anuncio].Caption = "Anuncio"
    dbg_lista.Columns![anuncio].Width = "5500"
    dbg_lista.Columns![anuncio].Visible = True
-------------------------------------------------

' Pega o campo se clicar no dbgrid

Private Sub dbg_lista_Click()
    txt_secao.text =  dbg_lista.Columns![secao]

End Sub

----------------------------------------------------

' Esse ordena pela coluna clicada ( tem que clicar no header do db)

Private Sub dbg_lista_HeadClick(ByVal ColIndex As Integer)
    If ColIndex <> 2 Then
        Data1.RecordSource = "Select * from Publicidade Where locador = " & str(cmb_locador.ItemData(cmb_locador.ListIndex)) + _
            " and imovel = " & str(cmb_imovel.ItemData(cmb_imovel.ListIndex)) + _
            " Order By " & _
            dbg_lista.Columns(ColIndex).DataField
            Data1.Refresh
    End If
End Sub

 

Ajudou ????

um pouco,mas na verdade eu queria que o form, quando estiver rodando,um registro do dataGrid estivesse selecionado sem clicar nele,aquela linha azul que fica selecionada quando clica no Registro.

 

Eu uso Datagrid e naum dbgrid.

 

obrigado