INCLUINDO DADOS

Citação:

:
olá robson.... no botão novo voce coloca...

Sql = [Ô]Insert Into Tbl_Corretor (Cpf, Corretor, Rg, Endereco, Compl, Cidade, Bairro,[Ô]
Sql = Sql & [Ô]Fone1, Fone2, Email, Banco, Agencia, Tipo_Conta, Num_Conta, Dt_Cadastro)[Ô]
[ô]->
Sql = Sql & [Ô]Values ([Ô]
[ô]->
Sql = Sql & [Ô][ô][Ô] & TxtCpf.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtCorretor.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtRg.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtEndereco.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtCompl.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtCidade.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtBairro.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtFone1.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtFone2.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtEmail.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtBanco.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtAgencia.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & CboTipo.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & TxtNum_Conta.Text & [Ô][ô],[Ô]
Sql = Sql & [Ô][ô][Ô] & Format(Date, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô])[Ô]
MsgBox ([Ô]Dados Gravado com Sucesso[Ô]), vbExclamation, [Ô]ATENÇAO[Ô]
Conexao.Execute Sql

obs: altere na sua necessidade..

Citação:

:
excluir...Private Sub Cmd3_Click()
On Error GoTo Trataerro
Dim Rst As New ADODB.Recordset
If TxtCpf.Text <> [Ô][Ô] Then
If MsgBox([Ô]Tem Certeza que Deseja Excluir[Ô] & Chr(13) & [Ô]O Cliente(a) --->> [Ô] & TxtCliente.Text & [Ô] ?[Ô], vbYesNo, [Ô]Atenção[Ô]) = vbYes Then
Set Rst = New ADODB.Recordset
Sql = [Ô]Delete From Tbl_Contratos Where Id_Contrato =[ô][Ô] & LblId_Contrato.Caption & [Ô][ô][Ô]
Rst.Open Sql, Conexao
MsgBox [Ô]Cadastro Excluido com Sucesso![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Else
MsgBox [Ô]Nao Existe Tarefa Para Excluir![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema[Ô]
End Sub