SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

ALTER  Proc UpGpFilter
@Finame varchar(25)= null,
@Finameid int
AS
Update GpFilter

Set Finame = @Finame
Where
Finameid = @Finameid

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

Private Sub UpdateRecord()
        Try
            Dim mycnn As New SqlConnection(ConnectionString)
            dap1.UpdateCommand = New SqlCommand("UpGpFilter", mycnn)
            With dap1.UpdateCommand
                .CommandType = CommandType.StoredProcedure
                .Parameters.Add("@Finame", SqlDbType.VarChar, 25, "Finame")
                Dim prm1 As SqlParameter = dap1.UpdateCommand.Parameters.Add("@Finameid", SqlDbType.Int)
                prm1.SourceColumn = "Finameid"
                prm1.SourceVersion = DataRowVersion.Original
            End With

            mycnn.Open()
            myds.GpFilter.GetChanges(DataRowState.Modified)
            dap1.Update(myds, "GpFilter")
            mycnn.Close()

        Catch ex As SqlException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL ERROR")

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")

        End Try

    End Sub