DUVIDA COM ADO

USUARIO.EXCLUIDOS 15/09/2005 17:45:00
#104476

Galera no meu Projeto tenho 4 campos texto e um MsFlexgrid, como que faço para conectar esses campos texto e o meu msflexgrid atraves do ADO e depois que todos os dados forem cadastrados no BD, preciso que apareça um msgbox com o valor do campo Cód da minha tabela do banco de dados.

o Código do meu form esta assim:


Private Sub Cmdregistrar_Click()
MsgBox "O Código do cliente é ?", 36, "Obrigado"

Adodc1.Recordset.AddNew TxtNom.Text
Adodc1.Recordset.AddNew TxtMail.Text
Adodc1.Recordset.AddNew TxtTel.Text
Adodc1.Recordset.AddNew txtdata.Text


Set TB = New ADODB.Recordset
TB.Open "Select Companhia from Tbl_Cadastro_Tarifas", BD, adOpenDynamic, adLockOptimistic
For I = 1 To MSFlexGrid1.Rows - 1
TB.AddNew
TB!Companhia = MSFlexGrid1.TextMatrix(I, 0)
TB.Update
Next

End Sub

Private Sub CmdTrecho_Click()
MSFlexGrid1.Cols = 1
MSFlexGrid1.AddItem txtcomp.Text /Comentario: Tudo que for digitado dentro do txtcomp é adicionado no MSFlexGrid1 /
End Sub