Updated record shown in datatable but not in DB

Hi, ive got a Store procedure to update a record:

CREATE PROCEDURE dbo.spUpdateCustomer
      @CName      nvarchar(50),
      @CPhone      nvarchar(13),
      @CustomerID      int
AS
           UPDATE Customers  SET CName=@CName,CPhone=@CPhone
            WHERE CustomerID=@CustomerID

In a form ive got two fields to update the selected row:
   .............
   with row                .
            BeginEdit()
            .CName = Me.txt_CustomerName.Text
            .CPhone = Me.txt_Phone.Text
            .EndEdit()
     End with

     'Now call function to send updates...
      UpdateRecords

 Private Function UpdateRecords() As Boolean
            Dim da As SqlDataAdapter
            da = New SqlDataAdapter("SELECT CName,CPhone FROM Customers", cnStr)
            da.UpdateCommand = updateCustomer()
            da.Update(tbl)
 End Function

Private Function UpdateCustomer() As SqlCommand
        Dim cmd As SqlCommand
        Dim cn As SqlConnection
        cn = New SqlConnection(cnStr)
        cmd = New SqlCommand("spUpdateCustomer", cn)
        cmd.CommandType = CommandType.StoredProcedure

        Dim param As SqlParameter
        param = cmd.Parameters.Add("@CName", SqlDbType.NVarChar, 50, "CName")
        param.SourceVersion = DataRowVersion.Original
        param.Direction = ParameterDirection.Input

        param = cmd.Parameters.Add("@CPhone", SqlDbType.NVarChar, 13, "CPhone")
        param.SourceVersion = DataRowVersion.Original
        param.Direction = ParameterDirection.Input

        '// ID
        param = cmd.Parameters.Add("@CustomerID", SqlDbType.Int, 4, "CustomerID")
        param.Direction = ParameterDirection.Input
        param.SourceVersion = DataRowVersion.Original
         Return cmd
    End Function

This goes through with no errors but the database is not been updated. any ideas??