Public Function update_all_data(ByVal Tablename As String, Optional ByVal _
   sql_statement As String = Nothing)
 
        Try
 
            If sql_KanBan.State <> ConnectionState.Open Then
                sql_KanBan.Open()
            End If
 
            Dim sql_build_string As String
 
            If sql_statement Is Nothing Then
                sql_build_string = "Select * from " & Tablename
            Else
                sql_build_string = sql_statement
            End If
 
            Dim sql_command As SqlCommand = New SqlCommand(sql_build_string)
            sql_command.CommandType = CommandType.Text
            sql_command.Connection = sql_KanBan
 
            SQL_Adapter.SelectCommand = sql_command
 
            SQL_CommandBuilder = New SqlCommandBuilder(SQL_Adapter)
 
            Dim result As Integer = SQL_Adapter.Update(SQL_dataset, Tablename)
            Return result
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
            Return 0
        End Try
    End Function