lägg till rad

Jag har gjort en liten kodsnutt som jag skall använda till att lägga till en ny rad i db och datagrid.. problemet är att den lägger inte in en ny rad i dg utan den vill "lägga till" på befintlig rad.. ngn som vet vad jag gör?

    Sub Add(Sender As Object, E As EventArgs)

      Dim table As DataTable = CreateDataSource()
      Dim newRow As DataRow

      newRow = table.NewRow()
      'Lägger inte till katNr eftersom det är en räknare som infogas automatiskt
      newRow.Item("kategori") = ""
      table.Rows.Add(newRow)

      objAdapter.update(ds,"kategori")

      dgKatData.DataSource = CreateDataSource()
      dgKatData.DataBind()

      dgKatData.EditItemIndex = dgKatData.Items.Count - 1
      dgKatData.DataSource = CreateDataSource()
      dgKatData.DataBind()

    End Sub

        Function CreateDataSource() As DataTable

            'Kopplar upp mot databasen
              strConnection = getstrConnection()
              kataktivSQL = "SELECT katNr, kategori, visa FROM Kategori WHERE Visa=true;"

            'Ansluter till databastabellen
              objAdapter = new OleDbDataAdapter(kataktivSQL, strConnection)

            Dim objCommandBuilder As New OleDbCommandBuilder(objAdapter)

               'Fyller DataSet
               ds = new DataSet()
               objAdapter.Fill(ds, "kategori")

               return ds.Tables("kategori")

         End Function