[Resolvido] Inserir dados no Firebird no VB2008

Galera é o seguinte... estou aprendendo a utilizar o Firebird.

Eu consgui fazer a conexão e exibiros dados no DataGridView da seguinte maneira...

Imports FirebirdSql.Data.FirebirdClient

Public Class Form1

Private DA As Odbc.OdbcDataAdapter
Private DS As DataSet

Dim i As Integer
Dim regs As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim myConnection As Odbc.OdbcConnection = New Odbc.OdbcConnection()
Dim myConnectionString As String

myConnectionString = "Dsn=TRABALHOS;Driver={Firebird/InterBase(r) driver};dbname=D:\Arquivos Disco C\ProgramaRosset\DESPROJETO.FDB;charset=NONE;uid=SYSDBA"

myConnection.ConnectionString = myConnectionString

 Dim SQL As String = "SELECT * FROM TESTE"
 DA = New Odbc.OdbcDataAdapter(SQL, myConnection)

 DS = New DataSet

 DA.Fill(DS, "TESTE")

 Me.DataGridView1.DataSource = DS.Tables("TESTE")

 End Sub

Criei uma caixa de texto e tentei inserir os dados dela no banco e não consegui...

Ele até acrescenta os dados no DAtaGridView, mas não no banco de dados.

O código que estou usando é esse:

Dim dsNovaLinha As DataRow
dsNovaLinha = DS.Tables("TESTE").NewRow()
dsNovaLinha("NOME") = txtFirstname.Text

DS.Tables("TESTE").Rows().Add(dsNovaLinha)
DS.AcceptChanges()
DA.Update(DS, "TESTE")
O que está errado?