Boas! Sou novo neste forum... necessito de acabar um programa ate ao final do més e portanto tou assim um pouco necessitado de ajuda...
a duvida que tenho é como adicionar um novo registo a minha tabela TBClientes na Base de dados... o código k fiz é este:



Private Sub btn_guarda_cliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_guarda_cliente.Click

Dim connCLiente As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Documents and Settings\AVALON\Ambiente de trabalho\Projecto de publicidades\BDPUB.mdb")
Dim commCliente As New OleDbCommand("select * from TBClientes", connCLiente)
Dim DA As New OleDbDataAdapter(commCliente)
Dim DS As New DataSet()
connCLiente.Open()

DA.Fill(DS, "TBClientes")
Dim DR As DataRow = DS.Tables("TBClientes").NewRow()

DR("NomeCliente") = txtnome.Text
DR("Morada") = txtmorada.Text
DR("CodPost") = txtcodpost.Text
DR("Localidade") = txtlocalidade.Text
DR("NumContribuinte") = Convert.ToInt32(txtcontribuinte.Text)
DR("Telefone") = txttelefone.Text
DR("Telemovel") = Convert.ToInt32(txttelemovel.Text)
DR("Fax") = txtfax.Text

DS.Tables("TBClientes").Rows.Add(DR)


connCLiente.Close()




End Sub



o que me falta?? alguem me pode ajudar pff

http://www.codeproject.com/cs/database/ADO.asp

do link, em C#:

DataRow row;
DataTable table=
dataSet11.Tables["Student"]; row=
table.NewRow(); row[0]=nim.Text;
row[1]=name.Text;
table.Rows.Add(row);
//save changes
DataTable table=dataSet11.Tables["Student"].GetChanges();
if(table!=null)
{
oleDbDataAdapter1.Update(table);
dataSet11.Tables["Student"].AcceptChanges();
}

Obrigado :)
Pelo link k me passaste ja vou la ;)